Appendix 1 

C:\unzipped\EZC\backup\vehicle_choice_make- asp 1 

<*S) Language=VBScript X> 
<X 

Option Explicit 
Response • Expires = 0 
On Error resume next 

Dim ob jOracleConnn strConnectString -i ObjRs 
Dim strS(2L(2uery 

Set ob jOracleConn- = Server- CreateObject ("ADODB • Connection" ) 
strConnectString = "DSN=EZC Oracle; UID=ezc; pwd=sql" 
ob jOracleConn- Open strConnectString 

' Response - Write ("error count: " a ob jOracleConn - Errors CO )- Description &"<P>") 
'now see if the userid and password exist 

strSflLfluery = " SELECT EZC - CT_EZC_VEHICLE_f1AKE ■ VEHICLE_HAKE„INTJCEYtEZC- CT_EZC_VEHICLE_J1AKE • kT 
VEHICLE_MAKE,EZC.CT_EZC_VEHICLE_riAKE. ACTIVE PROM EZC - CT_EZC_VEHICLE_riAKE UHERE EZC- * 
CT_EZC_VEHICLE„f1AKE- ACTIVE = 'Y r ORDER BY EZC - CT„EZC J/EHICLEJAKE - VEHICLEJAKE ASC " 

' Response. Write <strSGL<2uery+"<P>") 

' now execute the query 

Set ObjRs = ob jOracleConn - Execute (strSflLfluery ) 
if ob jOracleConn. Errors-Count > 0 then 

Response - Write ( "Error in executing") 

For intloop = 0 to ob jOracleConn-Errors -Count - 1 

Response - Write ( "Err #: " & ob jOracleConn - Errors - Item - Number ) 
Response -Write ( "Err Msg: " & ob jOracleConn - Errors - Item - Description ) 

Next 
end if 

' build the data for the vehicle makes 
Dim StrSelectHTHL 
IntContactListCount = D 
While Not ObjRs-EOf 

StrSelectHTHL = StrSelectHTML & "<0PTI0N value=" & Ob jRs <"VEHICLE_J1AKE_INT_KEY") & ">" & * 
Ob jRs ("VEHICLE_HAKE n ) 8 "</0PTI0N>" 

Ob jRs -MoveNext 

Wend 

Ob jRs. close 

Set ObjRs = Nothing 



'/.> 

<HTf1L> 
<HEAD> 

<META NAf1E="GENERAT0R" Content="t1icrosof t Visual Studio b-Q"> 
<SCRIPT ID=clientEventHandlersJS LANGUAGE^ javascr ipt> 
<! — 

function selectl_onchange O 
{ 

/* re-load the vehicle model frame 

remeber display is the name of the frame 
containing all the content 

top - frames (2) - f rames(l) - js_ref ine__vehicle_models ( vehicle_make) 
*/ 

> 

//— > 

</SCRIPT> 

</HEAD> 

<B0DY> 

<F0Rt1 name=Vehicle_make_f orm riETHOD=post> 
<P> 

<TABLE align=center border=Q cellPadding=l cellSpacing=l width- n iaQV. ,, > 

<TR> 
<TD> 

<P align=right><FONT face=Arial size=2>Vehicle Hake : </F0NTX/P></TD> 
<TD><SELECT id=ls_vehicle_make name=ls_vehicle_mafce size=l 
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style= n HEIGHT : 2Epxi WIDTH : n3px n LANGUAGE= javascript onchange 

selectl_onchange( )"> 
<■/. =StrSelectHTt1L X> 
</SELECT> 
</TDX/TR></TA8LE>&nbsp 3 i&nbspT 

</?> 

<input name = n abc" type= n text" > 

</F0Rf1> 

</B0DY> 

</HTf1L> 
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<*a Language=VBScript X> 

<Z f VI Scripting Object flodel Enabled X> 

<!*--# include f ile= n - ./-•/• - /_Scriptlibrary/pm . asp"— > 

<X if StartPageProcessingO Then Response - End ( ) X> 

<F0RM name=thisForm METH0D=post> 

<html> 

<meta > NAnE= n GENERATOR" Content="Microsof t Visual Studio b.0"> 

</head> 

<body> 

<f orm> 

< ! — METADATA TYPE = T, DesignerContro 1" startspan 

<0BJECT classid="clsid:277FC3F2-E^DP-liDD-B7b7-0aaQFfilEafllD" id=Gridl> 
<P ARAM NAME="_ExtentX" V ALUE="fiOM3"> 
<PARAM NAME= n „ExtentY" V ALUE= n 3fl6^"> 
<PARAM NAME="DataConnection n VALUE= nn > 
<PARAf1 NAME= n SourceType" VALUE= n "> 
<P ARAfl NAME="Recordset" VALUE="rs_customer"> 
<PARAM NAME= n CtrlName n VALUE="Gridl n > 
<PARAf1 NAME= n UseAdvancedOnly" VALUE="D n > 

<PARAM NAME= n AdvAddToStyles" V ALUE="-l n > 

<PARAI1 NAME= n AdvTableTag" VALUE= nn > 

<PARAM NAf1E="AdvHeaderRowTag n VALUE=""> 

<PARAM NAME= n AdvHeaderCellTag" VALUE= nn > 

<PARAM NAt1E="Adv3>etailRouTag" VALUE=""> 

<PAR Afl NAME = "Adv3>etailCellTag" VALUE=""> 

<PARA(1 NAME="ScriptLanguage" VALUE="1"> 

<PARAM NAME="ScriptingPlatform n VALUE="O n > 

<PARAM NAME="EnableRowNav" VALUE="-1"> 

<PARAM NAME= n HiliteColor" VALUE= n Aqua"> 

<PARAM NAME= n RecNavBarHasNextButton" VALUE="-1"> 

<PARAM NAME^RecNavBarHasPrevButton" VALUE="-1"> 

<PARAM NAME="RecNavBarNextText" VALUE=" > n > 

<PAR AM NAME="RecNavBarPrevText" VALUE=" < "> „. 
<S!ra! !!llE="ColumnsNames" VALUE= -OJST_ID" n"OJST _PH0NE_NUM" ,"CUST_EMAIL" ' > 
<PARAM NAME^columnlndex" VALUE="Q -»W n > 
<PARAM NAME= n displayUidth n VALUE= n bfl^6-»bfl n > 
<PARAM NAME="Coltype" VALUE= n 3nl-.l"> 
<PARAf1 NAME= n f ormated" VALUE="QtQiO"> 

<PARAM NAnE^MsJlayName" VALUE— CUST ID«,"CUST„PH0NE_NUf1","CUST„EMAIL" ' > 

<PARAH NAME="DetailAlignment" VALUE="-. -."> 

<PARAM NAME="HeaderAlignment n VALUE="-. i"> 

<PARAM NAnE= n DetailBackColor" VALUE=",-,"> 

<PARAM NAHE="HeaderBackColor" VALUE=" -."> 

<PARAM NAME="HeaderFont" VALUE=" -."> 

<PARAM NAME= n HeaderFontColor" VALUE= n -. -."> 

<PARAf1 NAME="HeaderFontSize n VALUE= f, T."> 

<PARAf1 NAME= n HeaderFontStyle" VALUE="-n"> 

<P ARAfl NAME="DetailFont n VALUE="-. 

<PARAI1 NAME="DetailFontColor n VALUE^" n <."> 

<PARAf1 NAME="DetailFontSize n VALUED -."> 

<P ARAfl NAME="l>etailFontStyle" VALUE="-n n > 

<PARAf1 NAf1E="ColumnCount" VALUE= n 3"> 

<PARAf1 NAME= n CurStyle" VALUE="8asic Navy"> 

<PARAI1 NAME= n TitleFont" VALUE="Arial"> 

<PARAM NAME="titleFontSize" VALUE="4"> 

<PARAM NAME="TitleFontColor n V ALUE="lb77721S"> 

<PARAH NAt1E="TitleBackColor n VALUE= n 1341L"> 

<PARAf1 NAME="TitleFontStyle" VALUE="1"> 

<PARAM NAME= n TitleAlignment n VALUE= n Q n > 

<P ARAM NAME="RowFont" V ALUE= n Arial"> 

<PARAM NAME="RowFontColor" VALUE= n 0"> 

<P ARAM NAME= n RowFontStyle" VALUE= T, 0"> 

<PARAM NAME =TT RowFontSize" VALUE="E n > 

<PARAM NAME= n RowBackColor n VALUE= n lt77721S n > 

<PARAM NAME="RowAlignment" VALUE="Q"> 

<PARAM NAME= n HighlightColor3D" VALUE= n Ebai435H55"> 

<PARAM NAME="ShadowColor3D" V ALUE= n 2tflM3S45S n > 

<P ARAM NAME="PageSize" VALUE="EQ"> 

<P ARAM NAME="MoveFirstCaption" VALUE=" l< "> 
<P ARAM NAME= n MoveLastCaption" VALUE=" >l "> 
<PARAM NAME="MovePrevCaption" VALUE= n « n > 
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<PARAM NAnE="rioveNextCaption" VALUE=" » 
<P AR AH NAME="BorderSize" VALUE="Q"> 
<PARAf1 NAf1E="BorderColor n VALUE= n 13HE177E n > 
<PARAM NAME= n GridBackColor" VALUE="aH21SQM"> 
<PARAK NAftE="AltRowBckgnd" VALUE="12i 3 322Sk n > 
<PARAf1 NAf1E="CellSpacing" VALUE="0"> 
<P AR AH NAME^tilidthSelectionflode" VALUE="1"> 
<P ARAM NAME="GridWidth n VALUE= f, 3QU n > 
<PARAH NArtE="EnablePaging n VALUE="-1"> 
<PARAM NAf1E="ShowStatus" VALUE="-1"> 
<PARAM NAME="StyleValue" VALUE="455febl"> 
<PARAH NAME="LocalPath" VALUE*"- ./•-/- -/"> 



</OBJECT> 
— > 

<!— #INCLUDE FILE=" - - /_ScriptLibrary/Button . ASP"~> 

< ! — ^INCLUDE FILE*". ./../. ./_ScriptLibrary/RSNavBar.ASP"--> 
<!— #INCLUDE FILE=". -/- ./- - /_Scr iptLibrary/DataGrid - ASP" — > 
<SCRIPT L A NGUAGE^ JavaScript RUNAT=Server> 
function _initGridl() 
{ 

Gridl. pageSize = SQi 
Gridl-setDataSource (rs_customer) t 

Gridl. tableAttributes = ' cellpadding=2 cellspacing=0 bgcolor=Gray border=0 cols=3 rules=ALLtf 
li)IDTH=304' i 

Gridl-headerAttributes = ' bgcolor=#0Q3Mta align=Left'^ 
Sridl-headerWidthtOJ = ' UIDTH=L,fl f ^ 
Gridl. headerUidthEl] = ' UI»TH=tfl f ^ 
Sridl-headerWidthCEJ = ' WIDTH=tfl ' h 

Gridl-headerFormat = '<Font f ace="Ar ial" size=4 color=White> <b>'^ 
Gridl. colHeaderCOl = 'VCUST ID\"^ 
Gridl.colHeaderC13 = ' \ ' CUST_PH0NE_NUI1\ ' ' ^ 
Gridl-colHeaderEEl = ' V CUST_Ef1AIL\ " i 

Gridl. rowAttributesEOl = f bgcolor = White align=Left'n 
Gridl-rowAttributesCll = ' bgcolor = Silver align=Lef t r ; 
Gridl-rowFormatC03 = ' <Font face="Arial" size=2 color=Black >'\ 
Gridl. colAttributesEQJ = ' bJIDTH-bfl ' \ 

Gridl-colFormattOJ = f <Font Size=2 Face="Arial" Color=Black >'n 
Gridl. colDataCOl = ' rs_customer . f ields - getValue (\ ' CUST_j:D\ ' ) ' n 
Gridl-colAttributesCU = ' WI3>TH=fctfi r ^ 

Gridl. colFormatEU = r <Font Size=2 Face="Arial" Color=Black >"i 
Gridl. colDataCU = ' rs_customer - fields • getValue <\ ' CUST_PHONE„NUMV ) ' \ 
Gridl-colAttributesL23 = ' lilIDTH=ta'i 

Gridl.colFormatt21 = r <Font Size=2 Face="Arial" Color=Black >'i 

Gridl. colDataE23 = ' rs__custotner . fields - getValue (V CUST_EriAIL\ ' ) ' \ 

Gridl • navbarAlignment = 'Right'n 

var ob jPageNavbar = Gridl . showPageNavbar (17Qil) i 

objPageNavbar-getButton(O) .value = ' l< ' i 

ob jPageNavbar. getButton (1) . value = ' << 't 

ob jPageNavbar - get8utton(2) . value = ' » 't 

objPageNavbar-getButtonO) - value = r >l 'i 

Gridl - hasPageNumber = truei 

Gridl-hiliteAttributes = ' bgcolor=Aqua 1 i 

var objRecNavbar = Gridl. showRecordNavbar (40il) i 

objRecNavbar - getButton(l) ■ value = ' < '\ 

objRecNavbar . getButton(E) • value = ' > f i 

> 

function _Gridl_ctor() 

CreateDataGrid ( 'Gridl' i_initGridl) 'i 

y 

</SCRIPT> 



<X Gridl-display Z> 



< ! — METADATA TYPE="Designer Control" endspan--> 
<! — METADATA TYPE="DesignerControl" startspan 

<0BJECT classid="clsid: e 1CFSD7C2-EC10-llD0-^at2-DaQ0Faa27CA0" id=rs_customer 

style="T0P: Qpx"><PARAH NAHE="ExtentX" V ALUE= n 12n7"><PARAn NAf1E="ExtentY" VALUE="20 c 30 n >< ^ 
PAR AM NAME="State" VALUE=" (TCConn=\qEZC\qnTCDBOb ject=\qDE\sCoramands\q-,TCDBOb jectName 
=\qcmd_customer_inf o\qnTCControlID_Unroatched=\qrs„customer\qTTCPPConn=\qE2C\qnRCDB0b ject *r 
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= \qROB0b jectAq-iTCPPDBOb ject = \qDE\sCommands\q -> TCPPDBOb jectName=\qcmd_customer_inf o\qi / 

TCCursorType=\q3\s-\sStatic\qiTCCursorLocation=\q3\s-\sUsG\sclient-side\scursors\q-. 

TCLockType=\q3\s-\s0ptimistic\qTTCCacheSize„Unmatched=\qlD0\qTTCCommTimeout - Unmatched 

= \q3D\qnCCPrepared=QiCCAllRecords = l-iTCNRecords_Unmatched=\qia\qTTCOI>BCSyntax_Unmatched=\q/ 

NqnTCHTargetPlatf orm=\q\qnTCHTargetBrowser_Unmatched=\qServer\s(ASP)\q^TCTargetPlatform x 

=\qlnherit\sf rom\spagG\qiRCCache=\qRCBookPage\qTCCOpen=lTGCParameters=(Rows=a) )"><PARAM 

NAME="LocalPath" VALUE=" .-/.-/.. / n X/OBJECT> 

— > 

<!--#INCLUDE FILE=" - ./. • /_ScriptLibrary /Recordset • ASP" — > 
<SCRIPT LANGUAGE= n JavaScript" RUNAT="server"> 
function _initrs_customer ( ) 
■C 

this Page . createDE ( ) \ 

var rsTmp = DE« Recordsets ( r cfnd__customer_inf o 1 ) \ 
rs_customer - setRecordSource (rsTmp ) \ 
rs_customer.open( ) \ 

if (thisPage.getState< ' pb_rs_customer ' ) != null) 

rs__customer - setBookmark ( this Page - getState < ' pb_rs_customer ' ) ) \ 

> 

function _rs_customer_ctor C) 

-C 

CreateRecordset ( 1 rs„customer r t _initrs_customer i nulDi 

} 

function _rs_customer_dtor C ) 
< 

rs_customer -_preserveState ( ) \ 

thisPage • setState ( 'pb_rs_customer ' i rs_customer - getBookmark () ) i 

> 

</SCRIPT> 

< ! — METADATA TYPE= T, DesignerControl" endspan— > 

</f orm> 

</body> 

<'/. ' VI t.O Scripting Object Model Enabled X> 

<X EndPageProcessing () X> 

</F0RM> 

</html> 
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<Z$ Language=VBScript '4> 

<html> 

<head> 

<meta NAf1E="GENERAT0R" Content="f1icrosof t Visual Studio b.0"> 
<'A 

Dim ob jOracleConrn strConnectString i ObjRs 
Dim strS£L(3uery 

Set objOracleConn. = Server . CreateObject ("ADODB ■ Connection" ) 
strConnectString = n DSN=EZC OracleTUID=ezcipwd-sql" 
objOracleConn- Open strConnectString 

Response. Write ("<script ID= n "cl ientEventHandlers JS2"" LANGUAGE^"" javascript"">") a vbcrlf 
Response. Write("<! — ">a vbcrlf 
Response. Write("")a vbcrlf 

Response -Write<"f unction set_submit_value ( ) ")a vbcrlf 
Response. Write ("{")& vbcrlf 

Response -Write ("/* set value to show that this is a true submit ")a vbcrlf 
Response -Write (" not just the refresh for model number ")a vbcrlf 
Response ■ Write (" retrieve the data ")8 vbcrlf 
Response. WriteC" */")a vbcrlf 

Response -Write (" document- forml - submit_click - value = 1 ")& vbcrlf 
Response- Write( n >")& vbcrlf 
Response. Write("")a vbcrlf 
Response. UriteCV/ — > n )a vbcrlf 
Response. Write <"</script>") a vbcrlf 

If Request. ServerVariables ("CONTENTJ.ENGTH" ><> 0 Then 

1 see if the form was submitted by the button or by 

r change of vehicle make 

if Request. Form("submit_click") = 1 then 

r data has already been input 
' save to the database - 
end if 



else 

1 Response -Write ("error count: n a objOracleConn - Errors (0) • Description a"<P>") 
'get the list of options for this particular car 

strS(3Li3uery = " SELECT CT_E2C_ADV_0PTI0NS.ADV_OPTIONS_INT.KEY, " 
strSdLduery = strS<2L(2uery a " CT_EZC_ADV„0PTI0NS - 0PTI0N_DESCi 

strSflLfluery = strSfiLfluery a n nvl (DT_EZC_ADV_AND_0PTIONS . ADV_0PTIONS„INT_KEYi ' N ' )" 
strS(2L(2uery = strSflLfluery a " FROM CT„EZC_ADV_OPTIONS , DT_EZC_ADV_AND„0PTI0NS 
strStfLtfuery = strS<3L4uery a n WHERE CT_EZC_ADV_0PTI0NS - ADV_JFYPE_INT_KEY » ' AA3' n 
strSflLfiuery = strSflLfiuery a " and CT_EZC_ADV_0PTI0NS - ADV__0PTI0NS_INT_KEY = * 
DT„EZC_ADV_AND_0PTI0NS.ADV_0PTI0NS_INT_KEY < + ) " 

1 Response -Write (strSfll_(3uery+"<P>") 

* now execute the query 

Set ObjRs = objOracleConn- Execute (strSiSLfiuery) 
if ob jOracleConn-Errors-Count > 0 then 
Response. Write < "Error in executing") 
For intloop = 0 to ob jOracleConn-Errors-Count - 1 

Response -Write < "Err " a objOracleConn -Errors - Item - Number ) 
Response -Write ( "Err Msg: n a objOracleConn • Errors - Item - Description ) 

Next 
end if 

Dim IntCount 
IntCount = 0 

Dim StrHTIILVehicleOptions 

StrHTflLVehicleOptions = "<TABLE rowspan=10>" 
While Not ObjRs . EOF 

IntCount = IntCount + 1 
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'if odd, then begin a new row 

if Round(IntCount/2il) - round ( IntCount/2 -.0 ) =0 ■ 5 then 

StrHTflLVehicleOptions = StrHTflLVehicleOptions & "<TR>" 
end if 

StrHTflLVehicleOptions = StrHTflLVehicleOptions & "<TD><INPUT id=checkbox" aOb jRs * 
"ADV OPTIONS INT KEY")a" name=checkbox" aOb jRs ("ADV_OPTIONS_INT_KEY">a " type= 
checkbox></TD><TD><FONT face=Verdana size=l>" aOb jRs C"OPTION_DESC") & "</TD> 

'if eveni then end the row 

if Round<IntCount/2-.l) - round (IntCount/2-,0)=0 then 

StrHTflLVehicleOptions = StrHTflLVehicleOptions a n </TR> 

end if 

ObjRs-floveNext 

StrHTflLVehicleOptions = StrHTllLVehicleOptions a"</TDX/TR></TABLE>" 

Ob jRs - close 

Set ObjRs = Nothing 

'get list of vehicle makes 
Dim strVJIakeSflLduery 
Dim strVJIakeHTfIL 

strV f1akeSflL(2uery = " SELECT EZC . CT_EZC_VEHICLE_f1AKE - VEHICLE_HAKE„INT KEYnEZC • ^ 
CT i5c VEHICLE HAKE - VEHICLE JAKE , EZC - CT_EZC_VEHICLE JAKE - ACTIVE H Z. * 

CTlEZClVEHICLElflAKE WHERE EZC • CT_EZC_VEHICLE__f1AKE - ACTIVE = 'Y< ORDER BY EZC * 
CT_EZC_VEHICLE_f1AKE - VEHICLE_f1AKE ASC " 

'Response -Write ( strS(2L<2uery+ n <P>" ) 

' now execute the query 

Set ObjRs = objOracleConn. Execute (strV_f1akeS(3L(3uery ) 
if objOracleConn-Errors- Count > 0 then 

Response. Write ( "Error in executing") 

For intloop = 0 to objOracleConn . Errors . Count - 1 

Response. Write < "Err #: " a objOracleConn • Errors -Item. Number ) 
Response. Write ( "Err flsg: " a objOracleConn - Errors - Item .Description ) 

Next 
end if 

' build the data for the vehicle makes 
IntContactListCount = 0 
While Not ObjRs. EOF 

strVJIakeHTfIL - strVJIakeHTfIL a "<OPTION value=" a Ob jRs ("VEHICLE JAKEJNTJCEY" > a ">" a 
Ob jRs ("VEHICLE_f1AKE" ) a "</OPTION>" 

ObjRs - HoveNext 

Wend 

strV flakeHTHL = "<SELECT id=selectS name=vehicle_make size=l style=""F0NT-FAf1ILY : monospace", * 
FONT-SIZE: x-small" n LANGUAGE=" n javascript"" onchange= n "vehicle_make_onchange ( ) > & * 
strV_f1akeHTf1L a " </SELECT> " 

ObjRs - close 

Set ObjRs = Nothing 

' now get the Vehicle models 
Dim strVJIodelSGLfiuery 

strVJIodelSflLfluery = " SELECT CT_EZC_VEHICLE_f10DEL . VEHICLE MODEL INT KEY, * 
CT EZC VEHICLE J10DEL- VEHICLE J1AKE_INT_KEY, "-^SrrFr 1 ^^ MH«r LZ r 1 1, 

" " CT EZC VEHICLE J10DEL- ACTIVE FROfl CT_EZC_VEHICLE J10DEL WHERE C * 

CT_EZC_VEHICLEJ10DEL- ACTIVE = 'Y' ) ORDER BY CT_EZC_VEHICLE J10DEL . VEHICLE_t1AKE_INT_KEY , * 
CT_EZC_VEHICLEJ10DEL- VEHICLE J10DEL ASC " 

'Response. Write < strVJ1akeS(2L(2uery+"<P>") 

' now execute the query 

Set ObjRs = objOracleConn. Execute (strV J1odelS(2L<2uery ) 
if ob jOracleConn-Errors -Count > Q then 
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Response. Write ( "Error in executing") 

For intloop = 0 to ob jOracleConn - Errors . Count - 1 

Response. Write ( "Err #: " & ob jOracleConn . Errors - Item - Number ) 
Response. Write ( "Err Msg : " & ob jOracleConn -Errors . Item - Description ) 

Next 
end if 

' build the data for the vehicle models 

Dim StrVJIodGlSelectHTIILi StrVehMake_int _key , StrPrevVehf1ake_int_key 

Dim StrflodelOptionsn Str JavaScript_Function 

IntListCount = D 

StrVehf1ake_int_key="" 

StrPrevVeh(1ake_intJ<ey = "" 

Response!KiJe(^ ID*""clientEventHandlers JSV" LANGUAGE^" javascript"">" > fcvbcrlf 

Response. Write ("<!--"> &vbcr If 
Response- Write C"" > &vbcr If 

Response -Write ("function vehicle_make_onchange ( ) )&vbcrlf 
Response. Write ("-C") fcvbcrlf 

Response. WriteC"/* re-load the vehicle model frame ")&vbcrlf 
Response. WriteC" remember display is the name of the frame )&vbcrlf 
Response. WriteC" containing all the content")&vbcrlf 
Response. WriteC" */")&vbcrlf 

'find the vehicle make index that is chosen 

Resoonse- WriteC" var li VehicleilakeOption = -1 ")&vbcrlf . 
'Response WriteC" for ( var i = 0* i <= f rm_create_vehicle_ad . vehicle_make - lengths i * 

+ + ) { ")&vbcrlf . . u . . . 

'Response. WriteC" if C frm_create_vehicle_ad.vehicle_make.optionsCia. selected -- true M 

) -C ")&vbcrlf . . nsa 

'Response. WriteC" ' li_VehicleMakeOption = i » "J&vbcrlf^ 

Response. WriteC" 1 i_VehicleriakeOption = f rm_create_vehicle_ad . vehicle„make - 

Selectedlndex ")&vbcrlf 

'delete all the options L . . . . . ... . . 

Response. WriteC" for ( var i=0=i i<= f rm_create_vehicle_ad - vehicle_model - length-, l 

++ ) { ")&vbcrlf 

Response. WriteC" f rm_create_vehicle_ad . vehicle_model - opt ionsti3 = null > " )&vbcrlf 
While Not Ob jRs .EOF 

'build the javascript function to load the options 

StrVehMake_int_key = Ob jRs ("VEHICLE J1AKE_INT_KEY") . 

if StrVehHake_int_key <> StrPrevVehf1ake_int_key and StrPre Wehflake^intjcey <> then 

'terminate the previous javascript block 

Response. Write ("}") fcvbcrlf 

'start the counter again 

IntListCount = D 
end if 

'see if new block should begin 

if IntListCount = 0 then 9 

Response. WriteC" if ( f rm_create_vehicle_ad . vehicle_make . options * 
Cli_Vehiclenake0ption3 == '" & Ob jRs ("VEHICLE^ MAKE_INT — KEY" ) &"<)<" Uvbcrlf 

end if 

StrPrevVehf1ake_int_key = StrVehMake„int_key _ 
Response. Write (" f rm_create_vehicle_ad . vehicle_mode 1 . optionst" SlntListCounta 3 - new * 

option ( """ & Ob jRs C "VEHICLE_HODEL" ) & """. """ & ObjRs * 

("VEHICLE_f10DEL_INT_KEY")& """ ) ")&vbcrlf 
IntListCount = IntListCount + 1 

ObjRs - floveNext 

Wend 

'terminate the last if block 
Response. Write C">") Svbcr If 

StrV flodelSelectHTML = "<SELECT id=selectfci name=vehicle_model size=l style=""FONT-FAniLY : * 
monospaced FONT-SIZE: x-small""> " & S trVJIodelSelectHTIIL & "</SELECT>" 
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Ob jRs. close 

Set ObjRs = Nothing 

'end javascript 

Response. Write < "history- go (0 )") &vbcrlf 
Response. Wri te <">") avbcr If 
Response. Wr i te ("") avbcr If 
Response- Write ("//-- >")&vbcrlf 
Response. Write ("</ scrip t>")&vbcr If 

'get all the contact information for this user 
'account id is in session variable (accountid) 



Dim strCust__ContactS(2Lc2uery 



' temp 

Session ( "ADV_DETAILS_INTJCEY") = "AAV 
Session("CUST_INTJCEY") = "AAl" 



strCust_ContactS(2Lfluery 
strCust_ContactS(2Lf2uery 
strCust_ContactS(2L<2uery 
strCust_ContactSfiL(2uery 
strCust_ContactS(2L(2uery 
strCust_ContactS(2L<2uery 

( "ADV_DETAILS_INT_KEY") & 
strCust_ContactS(2L<2uery 

1 NEW ' ) " 
strCust_ContactSfii_(2uery 



strCust_ContactS(2L(2uery & 

strCust__ContactS(2l_<2uery a 

strCust_ContactSai_2uery a 

strCust_ContactS(2L<2uery a 

strCust_ContactS(2L(2uery & 

strCust_ContactSflLt3uery & 



" SELECT CT.CUST_C0NTACT_C0DE-. 

"CT.CUST_CONTACT_DESCRIPTION<, 

"CT.CUST_CONTACT_TYPE_INT_KEY-. 

"COCUST_C0NTACT_DATAi 

"CC CUST.CONT ACT_INT_KE Y . 

"nvl(CD.A3>V_DETAILS_INT_KEY-. rn & Session* 



) " 

strCust_ContactS(2L<2uery a 
strCust_ContactS(2Li3uery a 



strCust_ContactS(2Lfluery 
strCust_ContactS(2Lduery 
strCust_ContactS(2L<2uery 



strCust_ContactS<2L<3uery a 
strCust_ContactS(3L(3uery a 
strCust_ContactS<2Li2uery a 



.cust„contact_int_key) and " 
strCust_ContactS(2Lfluery = strCust.ContactSGLfluery a 

CUST_CONTACT_TYPE_INT„KEY ) and" 
strCust_ContactS<2Lfluery = strCust_ContactS(2L(2uery & 
("CUSTJENTJCEY"^"' )" 



"nvl( CD • ADV_CONTACT_DETAILS_INT_KEY * 

"FROM CT_EZC_CUSTOriER_CONTACT_TYPE CT * 

"DT_EZC_ADV_CONTACT_DETAILS CD-. 

"DT_EZC_CUST0f1ER_C0NTACT CC " 

"WHERE ( CD.cust_contact_intJcey (+) = CC* 

"( COCUST_C0NTACT_TYPE_INTJCEY = CT. * 

"( COCUST_INT_KEY = '" a Session * 



' now execute the query 

Set ObjRs = objOracleConn- Execute (strCust_ContactS<2L<2uery > 
if objOracleConn. Errors. Count > 0 then 

Response. Write ( "Error in executing") 

For intloop = 0 to objOracleConn. Errors . Count - 1 

Response. Write ( "Err #: " a ob jOracleConn-Errors - Item. Number ) 
Response. Write ( "Err Msg: " a objOracleConn -Errors -Item. Description ) 

Next 
end if 



IntCount = Q 

Dim StrHTMLCust_ContactOptions 

StrHTI1LCust_Contact0ptions = "<TABLE bgColor=""yellow"" border=""0"" cellPadding=""l 
cellSpacing=""l"" width=""10.0*"">" 



While Not ObjRs. EOF 



IntCount = IntCount + 1 



'if oddi then begin a new row 

if RounddntCount/2-tl) - round < IntCount/5-iO) =0-5 then 

StrHTI1LCust_Contact0ptions = StrHTt1LCust_Contact0ptions a "<TR>" 
end if 

StrHTflLCust ContactOptions = StrHTMLCust_ContactOptions a "<TD><INPUT id=checkbox" aObjRs* 
("CUST_CONTACT_INT_KEY")a" name=checkbox" &0b jRs ("CUST„CONTACT_INT_KEY" ) a " type= * 
checkboxX/TD><TD><FONT f ace=Verdana size=l>" aObjRs * 
("CUST CONTACT_DESCRIPTION") a " (" a Ob jRs ("CUST_CONTACT_DATA" ) a ") </TD>" 



'if even-i then end the row 

if RounddntCount/2-.l) - round ( IntCount/2 nO ) =D then 
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StrHTHLCust_ContactOptions = StrHTm_Cust_ContactOptions & "</TR>" 
end if 



Ob jRs-tloveNext 



blend 

StrHTMLCust_ContactOptions = StrHTI1LCust„Contact0ptions & n </TDX/TRx/TABLE> n 

Ob jRs -close 

Set ObjRs = Nothing 

end if 



?.> 

</head> 
<body> 

<form name= n frm_create_vehicle_ad n id="f rnucreate.vehicle.ad" method="POST n xfont size="l"> 
<TA8LE border=Q eel lPadding=l cellSpacing=l width= n iatJ*" style="HEIGHT : MMlpxi yiBTH: b?Mpx"> 

<TB0DY> 

<TR> 

<TD align=middle> 

<TA8LE align=center border=D eel lPadding^l eel lSpacing^l 
sty le~"HEIGHT ' 333px\ UIDTH : S77px" width= n 10D^"> 
<TB0DY> 
<TR> 

<TD></TD> 

<TD align=middle colSpan=M> 

<P align=lef txFONT color=green face=Verdana size=2>Choose the 
contact methods to be used in the Ad</FONTx/PX/TDX/TR> 
<TR><TDX/TD> 

<TD align=middle co!Span=H> 

<TABLE align=center bgColor=yellow border=0 cellPadding=l 
cellSpacing=l width= n 10D^"> 
</TD> 

<TR> 

<TD align=middleX/: =StrHTf1LCust_Contact0ptions *x/TDX/TRx/TABLE> 

<TR> 

<TD align=middle> 

<P align=right><FONT face=Verdana size=l>Title s </FONTx/px/TD> 

<TD align=middle colSpan=3> 

<P align=lef txFONT face=Verdana size-lxiNPUT id=textl name=textl 
style= n F0NT-FAI1ILY: serifs FONT-SIZE : x-small; HEIGHT: 22px^ WIDTH: ^Spx^&nbsp 
n</FONT></Px/TI» 

<TD align=middleX/TJ» 

<TD align=middlex/T3» 

<TD align=middlex/TDx/TR> 
<TR> 

<TD align=middle> 

<P align=right><FONT face=Verdana size=l>I>escription:</F0NTx/Px/T3» 
<T3> align=middle colSpan=3> 

<P align=leftXTEXTAREA id=TEXTAREAl name=TEXTAREAl sty le =,, F0NT-FA(1ILY : serif; * 
FONT-SIZE: x-small; HEIGHT : 3flpxn WIDTH: HM7px T, x/TEXTAREAX/Px/TD> 
<TD align=middleX/TJ» 
<TD aIign=middleX/T]» 
<TD align=middleX/TDx/TR> 

<>. IF SessionCINDIVIDUAL") <> "I" THEN ' only for agent*> 
<TR> 

<TD align=middle> 

<P align=rightXFONT face=Verdana size=l>Link Web Page : </FONTX/PX/TD> 
<TD align=middle colSpan=3> 

<P align=lef txiNPUT id=textl>2 name=sle_url 

style="FONT-FAniLY: serifs FONT-SIZE: x-smalU HEIGHT: Elpx; WIDTH: M47px n X/PX/V 
TD> 

<TD align=middle></TD> 
<TD align=middleX/T]» 
<TD align=middle></TD></TR> 
<X END IF '<> 
<TR> 

<TD align=raiddle> 

<P align=right><FONT face=Verdana size=l>Vehicle Hake : </F0NT></P></TD> 
<TD align=middle> 
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<P align=left><3S =strV_MakeHTML *x/P></TD> 

<T <p a align=right><FONT face=Verdana size=l>Model : </FONTx/PX/TD> 
<TD align=middle> 

<P align=left><V. =StrV_ModelSelectHTML *x/PX/TD> 
<T3> align=middle> 

<TABLE bgColor=yellow border=D cellPadding=l cellSpacing=l 

width-"10DX n > 
</TABLEX/TDX/TR> 

<TR> 

<T ?p a align=right><FONT face=Verdana size=l>Price : </FONTX/Px/TD> 

<TD align=middle> . _ 

<P aliqn=left><FONT face=Verdana size=lXINPUT id=textE name=text2 
style="FONT-FAMILY : serif, FONT-SIZE: x-smal 1"XINPUT id^checkboxl 
name^checkboxl type=checkbox>&nbspSFirm</FONTX/PX/TD> 

<TD align=middle> 

<DIV align=left>&nbspS</DIVX/TD> 

<TD align=middle><FONT face=Verdana size=lX/FONTx/TD> 

<TD align=middle></TDX/TR> 
<TR> 

<T <p 8 align=rightXFONT face=Verdana size=l>Year : </F0NTx/P></TD> 

<T <p a iliSn=leftXFONT face=Verdana size=l><INPUT id=text3 name =text3 

sty le= FONT- FAMILY : sans-serifs FONT-SIZE: x-smallS HEIGHT: 2EpxS WIDTH : 
133px n X/F0NTX/PX/TD> 

<T <p 3 align=right><F0NT face=Verdana size=l>Fuel Type : </F0NTX/PX/TD> 
<TD al ign=middle> 

<P align=leftXSELECT id=select2 name=select2 

style= FONT-FAMILY : serifn FONT-SIZE : x-smallS HEIGHT: ElpxS WIDTH: 135px"> 
<0PTI0N selectedx/OPTIONX/SELECTX/Px/Tl» 
<TD align=middleX/TDX/TR> 
<TR> 

<T <p a align=right><FONT face=Verdana size=l>Mileage :</FONTx/Px/TD> 
<TD align=middle> , ^, ^ _ 

<P align=left><F0NT face=Verdana size=l><INPUT id=textll name=textll 
style=" FONT-FAMILY : serif, FONT-SIZE : x-small"xSELECT id=select3 

style="FONT^ FONT-SIZE: x-smallS HEIGHT : 22pxS WIDTH: 5^px«> 

<0PTI0N selected value=M>Miles</0PTION><OPTI0N 
value=KM>KM</OPTIONX/SELECTx/FONTX/PX/TD> 

<TD align=middle> 

<P align=right><FONT face=Verdana size=l>Engine:</FONTx/PX/TD> 

<TD align=middle> 

<P align=lef txFONT face=Verdana size=l><INPUT id=textfl 

name=textfl style="FONT-FAMILY : serifs FONT-SIZE: x-small"X/FONTX/PX/TD> 
<TD align=middleX/TDx/TR> 
<TR> 

<T <p 3 align=right><FONT face=Verdana size=l>Condition : </F0NT></P></Tl» 

<TD align=middle> ^ _ 

<P align=left><FONT face=Verdana size=l><INPUT id=text? name=text? 

sty le="F0 NT-FAMILY : serifs FONT-SIZE: x-small"X/FONTX/Px/TD> 
<TD align=middle> 

<P align=right><FONT face=Verdana size=l>City : </F0NT></P></TI» 
<TD align=middle> 

<P align=left><FONT face=Verdana size=l><INPUT id=textM 

name=textH sty le="FO NT-FAMILY : serifs FONT-SIZE : x-smal l"x/FONTx/PX/TD> 
<TD align=middle></TDX/TR> 
<TR> 

<TD align=middle> 

<P align=right><FONT face=Verdana size=l>I>oors : </FONTX/PX/TD> 

<TD align=middle> 

<P align=left><SELECT id=selectH name=select4 size=l 

style="FONT-FAMILY: serifs FONT-SIZE : x-smallS HEIGHT: 21pxS WIDTH: 13tpx"> 
<0PTION selected value=2>2 Doors</OPTIONXOPTION value=3>3 
Doors</0PTI0NX0PTI0N value=i4>H Doors</OPTION><OPTION value=S>S 
Doors</OPTION></SELECTX/P></TD> 
<TD al ign=middle> 
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<P align=rightxFONT f ace=Verdana size=l>State : </F0NTx/Px/TD> 
<TD align=middle> 

<P align=leftxFONT face=Verdana size=lxlNPUT id=textS 

name=text5 style = "F0NT-FAt1ILY : serif, FONT-SIZE: x-smal l"x/FONTX/Px/TD> 
<TD align=middlG></TD></TR> 
<TR> 

<T <p a align=right><FONT face=Verdana size=l>Transmission : </FONTX/PX/TD> 
<TD align=middle> 

<P align=lef txSELECT id=selectl name=selectl , 
style="FONT-FAfiILY : serif, FONT-SIZE: x-small', HEIGHT: Blpx'n WIDTH: 13bpx"> 
<0PTI0N selectedX/OPTIONX/SELECT></P></TD> 

<T <p 3 aiign=rightxFONT face=Verdana size=l>Zip :</FONTx/Px/TD> 
<TD align=middle> 

<P align=left><FONT face=Verdana size=lXlNPUT id=textb 

name=textb sty le= n F0NT-FAf1ILY : serif FONT-SIZE: x-smal 1"X/F0NTX/PX/TD> 
<T]> align=middle></TD></TR> 
<TR> 

<T <p a align=right><FONT face=Verdana size=l>Ext. Color : </F0NTX/PX/TD> 

<TD align=middle> . _ 

<P align=left><FONT face=Verdana size=l><INPUT id=textlO name=textlQ 
style=" FONT -FAMILY : serif FONT-SIZE: x-small n x/FONTX/PX/TD> 

<T % a align=right><FONT face=Verdana size=l>Int. Color : </F0NTX/PX/TD> 
<TD align=middle> 

<P align=left><FONT face=Verdana size=l><INPUT id=textT 

name=textT s tyle="F0 NT-FAMILY : serif, FONT-SIZE: x-small"></FONTX/PX/TD> 
<TD align=middle></TD></TR> 
<TRxTDX/TD> 

<TD align^middle colSpan=M> 

<P align=left><INPLIT id=submitl name=submitl onCl ick="set_submit_value ( ) style * 
= "HEIGHT: 2Mpx, WIDTH: 'Hpx" type=submit value=Save>&nbsp=.&nbsp^&nbsp,<INPUT \£ 
id=resetl name^resetl s ty le= n HEIGHT : 2Mpx", LEFT: lOOpx; TOP: Ipx^ WIDTH: * 
^7px" type=reset value=Reset>&nbsp,&nbspn&nbsp'i<INPUT id=buttonl name=buttonl^ 
style= n HEIGHT: EMpx, UIIDTH : llQpx" type=button value="Upload Image"X/PX/TD> 
<TD align=middle></TD> 
<TD align=middle></TD> 
<TD align=middleX/TD></TR> 
<P> 
<P> 
<P> 

<P align=leftX/PX/TBODY></TABLEX/TD> 

<TD align=middle bgColor=yellow vAlign=top ^. 0 , . 9 . 

>&nbsp^anbsp; &nbsp^nbsp^anbsp^&nbsp^anbsp^&nbsp-,&nbsp*,&nbsp,&nbsp,&nbsp 1 &nbsp,& M 

nbspn&nbspT&nbspi&nbspT&nbspn&nbspn&nbspT&nbspi 

<TABLE bgColor=yellow border=Q cellPadding=l cellSpacing=l width= n 100'/."> 

</TABLEXX =StrHTMLVehicleOptions ^x/TD></TRx/TBODY></TABLE>&nbsp^ 

<input type="hidden n value= n 0"-. name="submit_cl ick"> 

</f orm></F0NT> 

</body> 

</html> 
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<Z 3Language=VBScript X> 
<Z Option Explicit 
Response .Expires = D 
X> 

<html> 
<head> 

<meta NAME="GENERAT0R" Content="Nicrosof t Visual Studio b - 0"> 

<y. 

Dim ob jOracleConriT strConnectStringi ObjRs 
Dim strS(2L(2uery 

Set ob jOracleConn = Server -CreateOb ject ("ADODB -Connection" ) 
strConnectString = "DSN=EZC OraclenUID=ezcipwd=sql" 
objOracleConn-Open strConnectString 

If Request - Server Variables ("CO NTENT_LENGTH")<> 0 Then 

f see if the form was submitted by the button or by 
' change of vehicle make 

if Request . Form < "submit_cl ick" ) = 1 then 



r data has already been input 

' search the database. 

' first see what main components have been entered from the 

1 adv_details and vehicle^ details table 

Dim StrSelectClausei StrFromClause 
Dim StrlilhereClause -i StrTableName 
Dim StrSfiLSearchClause 
Dim StrSearchHTnLClause 

1 DEFAULT WHERE clause has join conditions 

StrlilhereClause = " WHERE DT„EZC_ADV_DETAILS • ADV_DETAILS_INT_KEY = 

DT„EZC_VEHICLE_DETAILS ■ ADV_DETAILS_INT_KEY and " 
StrlilhereClause = StrlilhereClause & " DT_EZC_VEHICLE_DETAILS - MAKE = CT_EZC_VEHICLEJ1AKE M 

. VEHICLE J1AKE__INTJ<EY and " 
StrWhereClause = StrlilhereClause & " DT_EZC„VEHICLE_DETAILS • PiODEL = / 

CT_EZC_VEHICLE_f10DEL - VEHICLE_f10DEL_INT_KEY n 

StrTableName = n dt_ezc„adv_details" 

if Request-Form ("sle^keyword") <> "" then 

StrlilhereClause = StrlilhereClause 8 " and (" & StrTableName 8 8 "adv_title liketf 

<Z n 8 Request. Form < n sle__keyword") a "*/.' or " 8 StrTableName 
& "." 8 "sle_description like '"/." 8 Request. Form ("sle_keyword") & "*' ) " 

end if 

if Request. Form ("sle„min_price n ) <> "" then 

StrlilhereClause = StrlilhereClause & " and (" a StrTableName & "•" & "price >= " & x 
Request. Form <"sle__min„price") a " ) " 

end if 

if Request- Form <"sle_max_price n )<> "" then 

StrlilhereClause = StrlilhereClause 8 " and <" & StrTableName & "-" & "price <=" & w 
Request-Form ("sle_max_price") 8 " ) " 

end if 

if Request-Form <"sle_condition n )<> "" then 

StrlilhereClause = StrlilhereClause & " and <" a StrTableName a "-" a "condition liketf 
f 's. n a Request-Form ("sle_condition") a "3c f ) " 

end if 

if Request-Form <"sle„city")<> " n then 

StrlilhereClause = StrlilhereClause 8 " and (" a StrTableName a a "city like 
g Request-Form ("sle_city") a n '4< ) " 

end if 

if Request-Form ("sle_state") <> ww then 

StrlilhereClause = StrlilhereClause a " and (" a StrTableName a "-" a "sle_state 
= '" a Request-Form ("sle_condition") a " f ) " 

end if 
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if Request. Form ("sle_zip") <> "" then . 

StrUhereClause = StrUhereClause & " and ( n & StrTableName a "-" a "sle_zip like * 
'*" a Request. Form ("sle_zip") a "*/.' ) " 

end if 

'examine the next table 

StrTableName = "dt_ezc_vehicle_details" 

if Request. Form ("sle_min_year" ) <> "" then 

StrUhereClause = StrblhereClause a " and <" & StrTableName a & "year >= & * 

Request. Form ("sle_min_year") a " > " 

end if 

if Request -Form ("sle.max.year") <> n " then 

StrUhereClause = StrUhereClause a - and <" a StrTableName a "." a "year <= a * 
Request. Form <"sle_max_year") a " ) " 

end if 
' fix 

if Request. Form ("lb_mileage")<> ™ then 
'depending on the value for mileage 
if Request. Form <"lb_jnileage") = "1" then 

StrUhereClause = StrUhereClause a " and (" a StrTableName a "." a " ( mileage* 
between D and ) " 

elseif Request. Form ("lb_mileage" ) = "2" then 

StrUhereClause = StrUhereClause a " and <" a StrTableName a "." & " < mileage* 
between 10000 and ) " 

elseif Request. Form ("lb_mileage n ) = "3" then 

StrUhereClause = StrliihereClause a " and (" a StrTableName a "-" a " ( mileage* 
between 20000 and ) " 

elseif Request- Form ("lb_mileage") = "4" then „„„„,■ i 

StrUhereClause = StrUhereClause a " and (" a StrTableName a "■" a " ( mileage* 
between 30000 and 3W1 ) " 
elseif Request. Form ("lb_mileage" ) = "5" then 

StrUhereClause = StrUhereClause a " and <" a StrTableName a "." a " ( mileage* 
between 40000 and ) " 

elseif Request. Form ("lb_mileage") = "b" then 

StrUhereClause = StrUhereClause a " and (" a StrTableName a "." a " < mileage* 
between 50000 and 5WI ) " 
elseif Request. Form < n lb_mileage n ) = "7" then 

StrUhereClause = StrUhereClause a " and (" a StrTableName a "." a " ( mileage* 
between tOQQO and ) " 

elseif Request. Form ("lb_mileage" ) = "fi" then . 

StrUhereClause = StrUhereClause a " and <" a StrTableName a "." a " ( mileage* 
between 7QQQD and ) " 

elseif Request. Form <"lb_tnileage" > = then 

StrUhereClause « StrUhereClause a " and (" a StrTableName a "-" a " ( mileage* 
between 60000 and ) " 

elseif Request. Form ("lb_mileage") = "10" then . 

StrUhereClause - StrUhereClause a " and (" a StrTableName a "-" a " ( mileage* 
between ^0000 and WW ) " 
elseif Request. Form ("lb_mileage") = "11" then 

StrUhereClause = StrUhereClause a " and (" a StrTableName a "." a " < mileage* 
between 10QQQ0 and lOTm ) " 
elseif Request. Form ("lb_mileage") = "12" then „„«„/•! 

StrUhereClause = StrUhereClause a " and (" a StrTableName a "-" a " ( mileage* 
between 110QQ0 and ) " 

elseif Request. Form ("lb_mileage") = "13" then 

StrUhereClause = StrUhereClause a " and (" a StrTableName a "." a " ( mileage* 
between 120000 and ) " 

elseif Request. Form <"lb_mileage"> = "14" then m 

StrUhereClause = StrUhereClause a " and (" a StrTableName a n ." a " ( mileage* 
between 130000 and 13^1 ) " 
elseif Request. Form ("lb_mileage") = "15" then 

StrUhereClause = StrUhereClause a " and <" a StrTableName & a " ( mileage* 

between mOOOO and mini ) " 
elseif Request-Form ("lb_mileage") = "lb" then 

StrUhereClause = StrUhereClause a " and (" a StrTableName a "." a " < mileage* 
>= 150000 ) " 



end if 
end if 
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if Request. Form (" lb_vehicle_model" ) <> "" then 

StrWhereClause = StrWhereClause a " and (" & StrTableName a "." & "model = " a 
Request. Form ("lb_vehicle_model" ) a " ) " 

end if 

if Request -Form ("lb_vehicle_make") <> "" then 

StrWhereClause = StrWhereClause a " and (" a StrTableName a "-" a "make = " a \l 
Request-Form <"lb_vehicle_make") a " ) " 

end if 

if Request-Form ("lb_doors") <> "" then 

StrlilhereClause = StrlilhereClause a " and (" a StrTableName a "-" a "doors = " a * 
Request-Form ("lb_doors") a " ) " 

end if 

if Request-Form ("lb_transmission")<> "" then 

StrlilhereClause = StrlilhereClause a " and (" a StrTableName a a "transmission \t 

= " a Request-Form ("lb_transmission") a " ) " 

end if 

if Request-Form ("lb_f uel_type") <> "" then 

StrlilhereClause = StrlilhereClause a " and (" a StrTableName a "." a "fuel_type 
= " a Request-Form ("lb_f uel_type") a " ) " 

end if 

if Request-Form ("sle_engine" ) <> then 

StrlilhereClause = StrlilhereClause a " and (" a StrTableName a "-" a "engine = " a 
Request-Form ("sle_engine") a " ) " 

end if 

if Request-Form ("sle_ext_color") <> nr * then 

StrlilhereClause = StrlilhereClause a " and (" a StrTableName a "-" a "engine = " a 
Request-Form ("sle_ext_color") a " ) " 

end if 

if Request-Form <"sle_int_color n ) <> nn then 

StrWhereClause = StrWhereClause a " and (" a StrTableName a "-" a "engine = " a 
Request-Form ( "sle_int_color" ) a " ) " 

end if 



9 now build the 
StrSelectClause 
StrSelectClause 
StrSelectClause 
StrSelectClause 
StrSelectClause 
StrSelectClause 
StrSelectClause 
StrSelectClause 
StrSelectClause 



sql 

= " SELECT DT„EZC_ 
= StrSelectClause 
= StrSelectClause 
= StrSelectClause 
= StrSelectClause 
= StrSelectClause 
= StrSelectClause 
= StrSelectClause 
= StrSelectClause 



ADV_DETAILS - ADV_DETAILS_INT_KE Y 

a " DT_EZC_ADV_DETAILS ■ ADV_TITLE, 

a " DT_EZC_ADV_DETAILS -PRICE, 

a " DT_EZC_ADV_DETAILS- CONDITION i 

a " CT„EZC_VEHICLEJ1AKE-VEHICLE_I1AKE, 

a " CT_EZC„VEHICLEJ10DEL.VEHICLE_M0DEL-i 

a " DT_EZC — VEHICLE_DETAILS • YEAR , 

a " DT_EZC_VEHICLE_J>ETAILS. MILEAGE, 

a " DT„EZC_VEHICLE_.DETAILS.UNIT„OF_MEASURE 



StrFromClause = " FROM DT_EZC — ADV_DETAILS, DT_EZC_VEHICLE_DETAILS, 
CT_EZC_VEHICLE_riAKE, CT_EZC_VEHICLE_MODEL " 

1 get rid of the first and in the where clause 

StrSflLSearchClause = StrSelectClause a StrFromClause a StrlilhereClause 



' Response -Write (StrSelectClause) 
' Response -Write (StrFromClause) 
1 Response - Write (StrlilhereClause) 

Response -bl rite (StrSflLSearchClause) 

Set ObjRs = ob jOracleConn - Execute (StrSGLSearchClause ) 

if ob jOracleConn- Errors. Count > D then 

Response - Write ( "Error in executing") 

For intloop = 0 to ob jOracleConn - Errors - Count - 1 

Response. Write ( "Err #: " a ob jOracleConn - Errors - Item - Number ) 
Response. Write ( "Err Msg: " a ob jOracleConn • Errors . Item - Description ) 

Next 
end if 
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' build the data for the vehicle makes 
'IntContactListCount = D 
StrSearchHTflLClause = "" 

' if now rows found, then display messagei else take them to the 
' next page 

if Ob jRs -RecordCount = 1 then 

' redriect to the ad directly 

Session ("Search_Clause") = StrS(2LSearchClause 
elseif Ob jRs .RecordCount > 1 then 
' redirect to list of ads 

Session ("Search_Clause") = StrS(2LSearchClause 
end if 

' continue with this ad with the message 



'While Not Ob jRs - EOF 

1 redirect to next page showing result 

' StrSearchHTriLClause = StrSearchHTMLClause a "<TR><TD><a href=" nTTn >" & ObjRs * 
("VEHICLE_MAKE n ) & "</TD><TD>" & Ob jRs ("VEHICLEJIODEL" ) & n </T3»<TD>" & ObjRs 
("YEAR" ) a " </TD><TD> n & Ob jRs ("PRICE" ) & "</TD><TD>" & ObjRs 
<"ADV_TITLE") &"</TD><TD>" & ObjRsC "MILEAGE") & "</TD><TI»" & ObjRs 
( "UNIT_0F_t1EASURE n ) & "</A></TD></TR>" 

' Ob jRs ■ MoveNext 
'Wend 

'if StrSearchHTMLClause = " n then 

StrSearchHTMLClause = "<TR><TD> No Vehicles Found that meet your criteria </TD></TR>" 
'end if 

ObjRs-close 

Set ObjRs = Nothing 

end if 
end if 

'Response. Write ("error count: " & ob jOracleConn . Errors (D )- Description &"<P>") 

Dim IntCount 
IntCount = 0 

'get list of vehicle makes 
Dim strV_MakeS<2L<2uery 
Dim strV_MakeHTML 

strV_KakeS(3L(2uery = " SELECT EZO CT„EZC_VEHICLE_MAKE . VEHICLE_i1AKE_INT_.KEY.EZC . * 
CT_EZC_VEHICLE_I1AKE - VEHICLE_f1AKE EZC - CT_EZC_VEHICLE_MAKE - ACTIVE FROM EZC . ** 
CT_EZC„VEHICLE_MAKE WHERE EZC - CT_EZC_VEHICLE_f1AKE . ACTIVE = 'Y' ORDER BY EZC - * 
CT_EZC_VEHICLE_MAKE.VEHICLEJ1AKE ASC " 

'Response. Write ( strS(2L<2uery+ n <P> n ) 

' now execute the query 

Set ObjRs = ob jOracleConn- Execute (strVJ1akeS(2LC2uery ) 
if ob jOracleConn. Errors. Count > Q then 

Response .Write ( "Error in executing") 

For intloop = 0 to ob jOracleConn . Errors - Count - 1 

Response .Write ( "Err #: " & ob jOracleConn - Errors - Item - Number ) 
Response. Write ( "Err Msg: " a ob jOracleConn - Errors • Item - Description ) 

Next 
end if 

' build the data for the vehicle makes 
' IntContactListCount = 0 
While Not ObjRs - EOF 

strV_MakeHTML = strV_MakeHTML a "<0PTI0N " 

if Request. Form ("lb_vehicle_make") = Ob jRs ("VEHICLE_MAKE_INT_KEY n ) then 

strV_MakeHTML = strV_f1akeHTML a " selected " 
end if 

strV_MakeHTML = strV_MakeHTML a "value=" a ObjRs ("VEHICLE_MAKE_INT_KEY" ) &" >" a Ob 3 Rs _f 
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("VEHICLEJAKE") & "</OPTION>" 



5 



Ob jRs-floveNext 

blend 



strVJIakeHTKL = "<SELECT id=lb__vehicle_make name=lb_vehicle_make size=l style=""FONT-FAHILY: * 
monospace! FONT-SIZE: x-small"" LANGUAGE^"" javascript"" onchange=""vehicle_make_onchange / 
()""> " & strVJIakeHTtIL & n </SELECT> " 



Ob jRs - close 

Set ObjRs = Nothing 

' now get the Vehicle models 
Dim strV_NodelS(3L£uery 



strV_i1odelS<2L<3uery = " SELECT CT_EZC_VEHICLE_nOBEL.VEHICLE_nODEL_INT_.KEYi * 
CT„EZC_VEHICLE_MODEL. VEHICLE JIAKE.INTJCEY-. CT_EZC_VEHICLEJ10DEL . VEHICLEJ10DEL X 

CT_EZC_VEHICLE_J10DEL. ACTIVE FROM CT_EZC_VEHICLE_HODEL WHERE ( * 

CT_EZC_VEHICLE_MODEL - ACTIVE = 'Y' ) ORDER BY CT_EZC_VEHICLE_MODEL - VEHICLE J1AKE_INT_KEY -■ 
CT_EZC_VEHICLE_nODEL-VEHICLE_nODEL ASC " 

f Response- liirite (strV_nakeS(2L<3uery+"<P>" ) 

r Response .Write (strV_J1odelS<2L(2uery) 

' now execute the query 

Set ObjRs = objOracleConn - Execute (strV_nodelS<2L(2uery ) 

if objOracleConn . Errors ■ Count > 0 then 
O Response • Write ( "Error in executing") 

? or intloop = 0 to ob jOracleConn - Errors - Count - 1 
^ Response . Write ( "Err #: " 8 objOracleConn -Errors . Item - Number ) 

=2 Response .Write ( "Err nsg: " & objOracleConn . Errors ■ Item ■ Description ) 

m Next 
iO end if 

i build the data for the vehicle models 
O Dim StrVJIodelSelectHTnL-. StrVehnake__int_key „ StrPrevVehHake_int„key 
i; g Dim StrModelOptions t Str JavaScript_Function 

Dim IntListCount 
*_ IntListCount = D 
O StrVehflake_intJ<ey="" 

StrPrevVehNake_int_key = "" 

M 'javascript functions 

If! Response- Write C"<script ID= n "clientEventHandlers JSl"" LANGUAGE="" javascript"">" ) & vbcrlf 
m Response. Write("<! — ")& vbcrlf 
Response. Write<"")& vbcrlf 

Response . Write ("function vehicle_make_onchange () ") & vbcrlf 
Response. Write("{")& vbcrlf 

Response. Write("/* re-load the vehicle model frame ")& vbcrlf 
Response -Write (" remember display is the name of the frame ")S vbcrlf 
Response . Write (" containing all the content")S vbcrlf 
Response. Write<" */")& vbcrlf 



'find the vehicle make index that is chosen 



Response . Write (" 
1 Response -Write (" 
f Response-Write<" 
Response -Write (" 
vbcrlf 



var li_Vehiclet1ake0ption = -1 ")& vbcrlf 

for ( var i = Oi i <= forml - lb_vehicle_make . lengths i++ ) { ")& vbcrlf 
if ( forml-lb_vehicle_make.optionsCi]. selected == true ) -C ")& vbcrlf 
li_VehicleNakeOption = f orml ■ lb__vehicle_make . selectedlndex ")& 



'delete all the options 

Response -Write (" for ( var i=U\ i<= forml • lb_vehicle__model . lengths i++ ) { ")& vbcrlf 
Response -Write (" forml- lb_vehicle__model - optionsCil = null > " )& vbcrlf 



While Not ObjRs - EOF 



'build the javascript function to load the options 
t 

StrVehnake_int_key = Ob jRs ("VEHICLE_flAKE_INT_KEY") 

if StrVehnake_int_key <> StrPrevVehnake_Int_key and StrPrevVehnake_int__key <> "" then 
'terminate the previous javascript block 
Response. Write (">") & vbcrlf 
'start the counter again 
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IntListCount = □ 
end if 



'see if new block should begin 
if IntListCount = D then 

Response . Write C" if ( f orml . lb_vehicle_make - optionsCl i_ VehicleflakeOptionJ == & *r 
Ob jRs ("VEHICLE^ MAKE„ INT^EY") a " nw ) £ n ) a vbcrlf 

end if 

StrPrevVehf1ake_int_key = StrVehf1ake_int_ key 

Response -Write C" f orml . lb_vehicle_jnodel - optionst" alntListCounta "3 = new option ( nnTT a 

ObjRsCVEHICLEJIODEL") a & Ob jRs ("VEHICLE_NODEL_JNT__KEY" ) & ) ") a vbcrlf 

IntListCount = IntListCount + 1 

Ob jRs-floveNext 

blend 

'terminate the last if block 
Response .Write ("> n )a vbcrlf 

StrV_f1odelSelectHT(1L = "<SELECT id=lb_vehicle_model name-lb_vehicle_model size=l style 

= nn F0NT-FAI1ILY: monospace'-. FONT-SIZE: x-small" n > " & StrVJIodelSelectHTHL a "</SELECT> n 

Ob jRs - close 

Set ObjRs = Nothing 

'end javascript 

1 Response -Write ("history -go (0)") a vbcrlf 
Response . Write ("f orml- submit ( ) ")& vbcrlf 
Response. Write("> n )a vbcrlf 
Response. Write("")a vbcrlf 
Response -Write ("// — > n )a vbcrlf 
Response . Write ( n </s crip t>") a vbcrlf 

x> 

</head> 
<body> 

<form id=forml name = forml action=</:=Request - ServerVariables ( n script_name n ) >.> method="post n Xtf 

font size= n l">anbspT 
<TABLE align=center bordered eel lPadding=Q cellSpacing=D width= n iaQ^ n > 

<TR> 

<TDx/T3>> 

<TD colspan=3> 

<P align=lef txFONT color=green f ace=Verdana><STRONG>Enter A Search 
Criteria</STRONGX/FONTX/PX/TI» 
<TDX/TI» 
<TDX/T3» 
<T1»</TI» 
<TDX/TDX/TR> 
<TR> 
<TD> 

<P align=rightXFONT face^erdana size=l>Keyword : </F0NTX/Px/TD> 
<TD colspan=3XF0NT face=Verdana size=lxlNPUT id=textl name=sle_keyword 

style="F0NT-FA(1ILY: serifs FONT-SIZE: x-small* HEIGHT : 25px^ WIDTH : 24^px" 
X/F0NTX/TD> 
<TDX/T1» 
<TDX/TD> 
<TD> 

<P align=right>anbspn</P></TD> 
<TD></TDX/TR> 
<TR> 
<TD> 

<P align=right><F0NT face=Verdana size=l>Vehicle Make ' </F0NTX/Px/TD> 
<TD> 

<P align=leftxFONT face=Verdana size=lx* =strV_I1akeHTML 3cx/F0NTx/PX/Tl» 
<TDX/TD> 
<TD> 

<P align=lef t>anbsp^</P></TD> 
<T3» 

<P align=right><FONT face=Verdana size=l>Condition : </F0NT></P></TJ» 
<TD><F0NT face=Verdana size=l><INPUT id=sle_condition 
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name=sle__condition value="<X = Request.Form("sle_condition") 
style =TT FONT-FAHILY: serifs FONT-SIZE: x-smal 1"X/F0NTX/TDX/TR> 
<TR> 
<TD> 

<P align=rightxFONT face=Verdana size=l>l1odel : </FONTX/PX/TD> 
<TDXSELECT id=lb_vehicle_model name=lb_vehicle_model size=l rTw/ „ nr , Ty 
style =TT F0NT-FAf1ILY: monospaced FONT-SIZE: x-small, HEIGHT : SEpx; WIDTH: £30px"x/SELECT * 
x/TD> 
<TDX/TD> 
<TDX/TD> 
<TDX/T3» 
<TDX/TDX/TR> 
<TR> 

<T <P align=rightxFONT face=Verdana size=l>Price Range : </FONTx/Px/TD> , _ n . _ 
<TD><F0NT face=Verdana size=l><INPUT id=sle_min_price name=sle_min_pnce value- <A - * 
Request. Form ( n sle_min_price n ) 3C>" , 

style="FONT-FAniLY serif, FONT-SIZE: x-smalU HEIGHT : Elpxd WIDTH : 10fipx">&nbsp ,&nbsp, 

<FONT face=Verdana size=l>to : <F0NT face=Verdana size=l> 

na^ll^axlpr^ = Request . Form ("sle.maxjrice") *>« style=«HEIGHT : EEpxd ✓ 

WIDTH: c iapx TT X/FONT> </F0NT></F0NTX/TD> 
<TD></TD> 
<TD> 

<P align=left><FONT face=Verdana size=lx/FONTX/px/TD> 
<TD> 

<P align=rightxFONT face=Verdana size=l>City :</FONTx/PX/TD> 
<TD><F0NT face=Verdana size=l><INPUT id=sle_city C1MT . v. * 

name=sle_city valued* = Request . Form C"sle_city") 2>" style= n FONT-FAMILY: serif, * 
FONT-SIZE: x -small n X/FONTX/TDX/TR> 

<TR> 
<TD> 

<P align=rightxF0NT face=Verdana size=l>Year Range : </F0NT></P></TD> 
<TDXF0NT face=Verdana size=lxlNPUT id=sle_min_year n ^= s l e -!? 1 1 "-y ear ... FAWT - T7r . 

value«"<* = Request. Form ("sle_min_year" ) sty le="F0NT-FA!1ILY : sans-serif, FONT-SIZE* 

: x-smalli HEIGHT : EEpx, WIDTH : IDA px">&nbsp \   <F0NT face=Verdana size=l>to : <F0NT * 
face=Verdana size=lxlNPUT id=textl3 name=sle_max„year 
style="HEIGHT: SEpx", WIDTH : c lflpx"X/FONT> </F0NT></F0NT></TD> 
<TDX/TD> 
<TD> 

<P align=left><FONT face=Verdana size=lx/FONT></P></TD> 
<TD> 

<P align=right><FONT face=Verdana size=l>State : </F0NT></P></TD> 
<TD><F0NT face=Verdana size=lxlNPUT id=sle_state 

name=sle_state value="<* = Request - Form< n sle_state" ) ">:>" 
sty le="F0 NT-FAMILY : serif, FONT-SIZE : x-smal 1"X/F0NTX/TDX/TR> 
<TR> 
<TD> 

<p align="right n xfont f ace= n Verdana" size= n l n >Mileage :</f ontx/p></TD> 

<TD> , t . , 

<P align=lef txSELECT id=selectS name=lb_mileage size = l 
style="FONT-SIZE: x-small; HEIGHT : ESpx", WIDTH: 13bpx"> 

<0PTI0N selected value= nn 
> </0PTI0NX0PTI0N 

value=Q>0 - T^'K/OPTIONXOPTION value=l>10 -.000 

- l^'m/OPTIONXOPTION value=E>EO,aaa - 

2T-, C H C K/0PTI0NX0PTI0N value=3>30 ,DOD - 

3T 1 c m</OPTIONX0PTI0N value=M>MO -.000 - 

H c ln £ l c l e 3</0PTI0N><0PTI0N value=5>5QS0QD - 

ST^TH/OPTIONXOPTION value=t>La-,aoa - 

L^^K/OPTIONXOPTION value=7>70,000 - 

7T, s n c i</0PTIONXOPTI0N value=fl>flO ,0D0 - 

STt'H^/OPTIONXOPTION value=^>^0 ,000 - 

^iQCHK/OPTIONXOPTION value = lD>3.0a-.0QD - 

lOT^'K/OPTIONXOPTION value=ll>llQiaoa - 

in-i c n c 1</0PTI0N><0PTI0N value=lE>lSa-.OOa - 

lET-i^K/OPTIONXOPTION value=13>13QiQaD - 

13^-.^ C ^</0PTI0NX0PTI0N value = lM>ma , DOQ - 
lMT-.TT'K/OPTIONXOPTION value=lS>&gt , = 

15Q-.QQCK/0PTI0NX/SELECTXSELECT id=select3 name = lb_mi leage_uom size-* 
1 

sty le="F0NT-FAf1ILY : serif, FONT-SIZE: x-small*, HEIGHT : SEpx", WIDTH : 51px"> 
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<OPTI0N selected value=f1>f1 i les</OPTIONXOPTION 
value=Kn>Kn</OPTION></SELECT></P></TD> 
<TDX/TD> 
<TD></TD> 
<TD> 

<P align=rightxFONT face=Verdana size=l>Zip:</FONTX/PX/TD> . „, . „ 

<TDxFONT face=Verdana size=lxINPUT id=sle_zip value="<X = Request - Form ("sle_zip ) /.> 
name=sle_zip style= n F0NT-FAf1ILY : serif, FONT-SIZE: x-small"X/FONTX/TDx/TR> 

<TR> 

<TD></TD> 
<TDX/TD> 
<T3»</TD> 
<TDX/T1» 
<TD> 

<P align=right><FONT face=Verdana size=l>Doors : </FONTX/PX/TD> 
<TD><SELECT id=select l 4 name=lb_doors size=l 4I T ™ - ^ - 

style="FONT-FAniLY: serif, FONT-SIZE : x-small*, HEIGHT : Slpx. VERTICAL-ALIGN: middle, 
WIDTH: 13bpx" 

> <OPTION selected value= nn x/0PTI0NX0PTI0N value=2>2 

Doors</0PTI0N><0PTI0N value=3>3 Doors</OPTIONXOPTION value=M>L4 
Doors</0PTI0NX0PTI0N value=5>5 Doors</OPTIONX/SELECTX/TDX/TR> 

<TR> 

<TDX/TD> 

<TDX/TB> 

<TDX/TD> 
|3 <TD></TD> 
. ~i <TD> 

;j <p a lign=rightxFONT face=Verdana size=l>Transmission : </FONTX/PX/TD> 

W <TDXSELECT id=selectl name=lb_transmission T , M . ^ . 

style="FONT-FAMILY : serif, FONT-SIZE : x-small, HEIGHT: Elpx^ VERTICAL-ALIGN : middle, 
:« WIDTH: 13bpx n 

'.Z > 

IM <0PTI0N selected></OPTIONX/SELECTX/TI»</TR> 

13 <TR> 

.fg <TD></T3» 

"''^ <TDX/TD> 
<TDX/TD> 

p <TD></TD> 

i = <TD> 

.J <P align=right><FONT face=Verdana size=l>Engine : </FONTX/PX/TD> 

O <TD><F0NT face=Verdana size=l><INPUT id=textfi 

In name = sle_engine tmin 

74 style="F0NT-FAf1ILY: serifs FONT-SIZE: x-small n X/F0NT></TI»</TR> 

H <TR> 

I- <TDX/TD> 

<TDX/TD> 

<TDX/TD> 

<TDX/T3» 

<TD> 

<P align=right><F0NT face=Verdana size=l>Fuel Type : </F0NT></P></TD> 
<T1> sty le=" VERTICAL- ALIGN : middle"><SELECT id=selectE name=lb_f uel_type 

style= n F0NT-FAf1ILY: serifs FONT-SIZE: x-small", HEIGHT : 51px^ WIDTH : 13Spx"> 
<0PTI0N selectedX/OPTIONX/SELECT></TDX/TR> 

<TR> 

<TDX/TD> 
<TD></TD> 
<TDX/TD> 
<TD></TD> 
<TD> 

<P align=right><FONT face=Verdana size=l>Ext- Color :</FONTX/PX/TD> 
<TD><F0NT face=Verdana size=l><INPUT id=textlO name=sle_ext_color 
style="FONT-FAniLY: serifs FONT-SIZE: x-smal l"x/FONT></TD></TR> 

<TR> 

<TD></TD> 
<TD></TD> 
<TD></TD> 
<TD></TD> 
<TD> 

<P align=right><FONT face=Verdana size=l>Int- Color : </F0NT></P></TD> 
<TD><FONT face=Verdana size=l><INPUT id=textT name=sle_int_color 
style =" FONT-FAMILY: serifs FONT-SIZE: x-small n X/FONTx/TDX/TR> 
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<TR> 

<TD><FONT face=Verdana size=l><INPUT id=submitl name=b_search onCl ick= n f orml ■ submit_cl ick 
=1" sty le="HEIGHT : 2Hpx^ WIDTH : ^px" type=submit value=Search>&nbsp^ 
<INPUT id=resetl name=resetl style= n HEIGHT : EMpxn WIDTH ^7px" type=reset value=Resetx/FONT * 
></TD> 
<TD> 

<P align=right>anbsp"i</P></TD> 
<TD> 

<P align=lef t>&nbspi</P></TD> 
<TDX/TD> 

<TDX/TD></TRX/TABLE> </font> 

<input type="hidden" value= f, Q n i name="submit_cl ick"> 
</f orm> 
</body> 
</html> 
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<V. ai_anguage = VBScript X> 
<X Option Explicit 
Response -Expires = 0 
Response -Buff er = true 
*/.> 

<html> 
<head> 

<meta NAf1E= n GENER-AT0R n Content="f1icrosof t Visual Studio t - □"> 

<y. 

Dim ob jOracleConnn strConnectString n ObjRs 
Dim strS<2L(2uery 

Set ob jOracleConn = Server ■ CreateObject ("ADODB ■ Connection" ) 
strConnectString = "DSN=EZC Oracle^UID=ezCn pwd=sql" 
ob jOracleConn- Open strConnectString 

If Request. Servervariables <"C0NTENT_LENGTH")<> D Then 

' see if the form was submitted by the button or by 

r change of vehicle make 

if Request.Form("submit_click") = 1 then 



' data has already been input 

' search the database- 

' first see what main components have been entered from the 

' adv_details and vehicle_details table 

Dim StrSelectClause-i StrFromClause 
Dim StrlilhereClause-. StrTableName 
Dim StrSflLSearchClause 
Dim StrSearchHTflLClause 

f DEFAULT WHERE clause has join conditions 

StrlilhereClause = " iilHERE EZC - DT_EZC_ADV_J>ETAILS - ADV_DETAILS_ INT_KEY = EZO 

DT_EZC_VEHICLE_DETAILS. ADV_DETAILS_INT_KEY and " 
StrlilhereClause = StrlilhereClause a n EZC - DT_EZC_VEHICLE_DETAILS • HAKE = EZC - *f 

CT EZC_.VEHICLE_f1AKE.VEHICLEJ1AKE_INT_KEY and " 
StrWhereClause = StrlilhereClause & " EZC- DT_EZC_VEHICLE_DETAILS • MODEL = EZC- * 

CT_EZC_VEHICLE_I10DEL - VEHICLE_f10DEL„INT_KEY " 

StrTableName = "EZC- DT_EZC_ADV_DETAILS" 
if Request. Form ( "sle__keyword" ) <> "" then 

StrlilhereClause = StrUhereClause a " and <" & StrTableName a a n ADV_TITLE like* 
'*" a Request-Form ("sle_keyword" ) a "* f or " a StrTableName * 
a "." a "ADV_TYPE_DESC like '*" a Request . Form ("sle„keyword") a ) " 

end if 

if Request. Form ("sle_min_price")<> then 

StryhereClause = StrlilhereClause a " and <" a StrTableName a a "price >= " a * 
Request-Form ("sle_min_price") a " ) " 

end if 

if Request-Form ("sle_max_price" )<> then 

StrlilhereClause = StrlilhereClause a " and ( n a StrTableName a n -" a "price <=" a * 
Request-Form <"sle„max_price") a " ) " 

end if 

if Request. Form ("sle_condition" ) <> nTT then 

StryhereClause = StrlilhereClause a " and (" a StrTableName a "-" a "condition like* 
'*" a Request-Form ("sle_condition") a "3c r ) " 

end if 

if Request-Form ("sle_city") <> then 

StrlilhereClause = StrUhereClause a " and ( n a StrTableName a "•" a "city like * 
'*" a Request. Form ("sle_city") a "32 ' ) n 

end if 

if Request. Form ("sle_state") <> " n then 

StrlilhereClause = StrlilhereClause a " and <" a StrTableName a a "sle_state * 

= ,n a Request. Form ("sle_condition") a "' ) " 

end if 



-44- 



C : \unzipped\EZC\- ■ \flain\Ads\search_vehicle\vehicle_search-asp 



2 



if Request. Form ("sle_zip n )<> "" then 

StrlilhereClause = StrlilhereClause a " and (" a StrTableName & "-" & 
'*/." & Request. Form <"sle_zip") & "*' ) " 

end if 

'examine the next table 

StrTableName = "EZO DT_EZC_VEHICLE_]>ETAILS" 

if Request. Form ("sle_min_year") <> "" then 

StrlilhereClause = StrlilhereClause a " and ( n a StrTableName a "-" a 
Request. Form ("sle_min_year" ) a " ) " 

end if 



"sle_zip like * 



'year >= " & * 



' then 
and ( n 



" & StrTableName a 



a StrTableName a " 



if Request. Form ( n sle_max_year n ) <> nn then 

StrlilhereClause = StrlilhereClause a " and (" a StrTableName a 
Request. Form < "si e_max_year" ) a " ) n 

end if 
' fix 

if Request- Form ( n lb_mileage n ) <> "" then 

'depending on the value for mileage — 
if Request. Form <"lb„mileage" ) = "1" then 
StrlilhereClause = StrlilhereClause a " and 
between Q and ) " 

elseif Request. Form ("Ibjileage") = "2 n then 
StrlilhereClause = StrlilhereClause a " and < 
between 10000 and ) n 

elseif Request. Form ("lb_mi leage" ) = "3 
StrlilhereClause = StrlilhereClause a " 
between 20000 and 2^^ ) " 
elseif Request. Form <"lb_mileage") = "M 
StrlilhereClause = StrlilhereClause a " 
between 30000 and BWJ ) " 
elseif Request. Form ("lb_mileage") = "5" then 
StrlilhereClause = StrlilhereClause a " and ( 
between M000O and ) " 

elseif Request. Form ("lb_mileage") = n b" then 
StrlilhereClause - StrlilhereClause a " and (" 
between S0000 and SW* ) n 
elseif Request. Form ("lb_mileage"> = "7" then 
StrUhereClause = StrUhereClause a " and (" 
between tOOQO and kim ) " 
elseif Request-Form <"lb„mileage") = "fi" then 
StrUhereClause = StrlilhereClause a " and ( 
between 70000 and 7 I'm ) " 
elseif Request-Form <"lb_mileage") = nc l n then 
StrlilhereClause = StrlilhereClause a " and < 
between 50000 and fil'm ) " 
elseif Request-Form <"lb_mileage") = "10" then 
StrlilhereClause = StrlilhereClause a " and ( 
between ^0000 and Tmi ) " 
elseif Request. Form ( "lb_mi leage" ) = "11" then 
StrlilhereClause = StrlilhereClause a n and (" 
between 100000 and lO'mS ) " 
elseif Request-Form ("lb_mileage") = "12" then 
StrlilhereClause = StrlilhereClause a " and ( n 
between 110000 and limi > " 
elseif Request-Form ("lb_mileage") = "13" then 
StrlilhereClause = StrlilhereClause a " and < 
between 120000 and 12^^ ) " 
elseif Request-Form ("lb_mi leage" ) = "1M" then 
StrUhereClause = StrlilhereClause a " and (" 
between 130000 and 13^^ ) " 
elseif Request-Form <"lb_mileage") = "IS" then 
StrlilhereClause = StrlilhereClause a " and (" 
between 1HQ000 and m'm'l ) " 
elseif Request-Form ("lb_mi leage") = "It" then 
StrUhereClause = StrlilhereClause a " and (" 
>= 150000 ) " 

end if 
end if 
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a "year <= " a * 



(" a StrTableName a "-" a " ( mileage* 



a StrTableName a "." a " ( mileage* 



then 

and (" a StrTableName a "-" a " ( mileage* 



a StrTableName a "." a " ( mileage* 



a " ( mileage* 



" a " < mileage* 



a StrTableName a "." a " ( mileage* 

" a StrTableName a "-" a " ( mileage* 

" a StrTableName a "-" a " < mileage* 

" a StrTableName a "-" a " ( mileage* 

a StrTableName a a " ( mileage* 

a StrTableName a a " ( mileage* 

" a StrTableName a a " < mileage* 

a StrTableName a "." a " ( mileage* 

a StrTableName a "-" a " ( mileage* 



& StrTableName a 



a " < mileage* 
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if Request- Form ("lb_vehicle_model" ) <> "" AND Request . Form ^ 
("lb_vehicle_model")<> "0" then 

StrUhereClause = StrUhereClause a " and ( n a StrTableName & "-" & "MODEL = '" a 
Request-Form ("lb_vehicle_mode 1" ) a "' ) " 

end if 

if Request. Form ("lb_vehicle_make") <> "" and Request-Form ("lb_vehicle_make") <> "Q" 
then 

StrUhereClause = StrliihereClause & " and (" a StrTableName a "-" a "rlAKE = '" a 
Request-Form ("lb_vehicle_make n ) & ) " 

end if 

if Request. Form ("lb„doors")<> "" then 

StrliihereClause = StrUhereClause a " and (" a StrTableName a "-" a "doors = " a ^ 
Request-Form ("lb_doors") a " ) n 

end if 

if Request-Form ("lb_transmission") <> "" then 

StrblhereClause = StrUhereClause a " and (" a StrTableName a "-" a "transmission 
= '" a Request-Form ("lb_transmission" ) a "' ) " 

end if 

if Request-Form ("lb_f uel_type") <> nTT then 

StrUhereClause = StrblhereClause a " and (" a StrTableName a "-" a "fuel_type 
= '" a Request-Form ("lb_f uel_type" ) a "' ) " 

end if 

if Request-Form ("sle_engine") <> "" then 

StrblhereClause = StrblhereClause a " and (" a StrTableName a "-" a "engine = '" a * 
Request-Form ("sle_engine") a "' ) " 

end if 

if Request-Form ("sle„ext_.color") <> "" then 

StrUhereClause = StrblhereClause a " and (" a StrTableName a "-" a "ext_color * 
= '" a Request-Form ("sle„ext_color") a "' ) " 

end if 

if Request-Form <"sle_int_color") <> then 

StrUhereClause = StrUhereClause a " and (" a StrTableName a "-" a "int_color 
= '" a Request-Form < "sle__int_.color" ) a " f ) " 

end if 

' now build the sql 

StrSelectClause = " SELECT EZC-DT_EZC_ADV_DETAILS . ADV_DETAILS_INTJCEY-, 
StrSelectClause = StrSelectClause a " EZC . DT_EZC_ADVJDETAILS - ADV_TITLE , 
StrSelectClause = StrSelectClause a " to_char (EZC . DT_EZC__ADV_DETAILS . PRICE ) PRICE * 

rr 

StrSelectClause = StrSelectClause a " EZC DT_EZC_ADV_1>ET AILS. CONDITION-. 

StrSelectClause = StrSelectClause a " EZC ■ CT_EZC_VEHICLE_f1 AKE . VEHICLE_H AKE i 

StrSelectClause = StrSelectClause a " EZC • CT_EZC_VEHICLE_HODEL • VEHICLE_riODEL i 

StrSelectClause = StrSelectClause 8 " to_char (EZC DT_EZC_VEHICLEJ>ETAILS . YEAR) YEAR * 

ft 

StrSelectClause = StrSelectClause a " to„char< EZC DT_EZC_VEHICLE_DET AILS. MILEAGE) * 
MILEAGE-. 

StrSelectClause = StrSelectClause a " EZODT_EZC_VEHICLE_DETAILS-UNIT_0F_MEASL]RE 

StrFromClause = " FROM EZC • DT — EZC_ADV_DETAILSn EZC - DT_EZC_VEHICLE_DETAILS EZC * 
CT_EZC — VEHICLEJAKE n EZC - CT_EZC_VEHICLE — MODEL " 

' get rid of the first and in the where clause 

StrS(2LSearchClause = StrSelectClause a StrFromClause a StrUhereClause 

'Response -Urite (StrSelectClause) 
'Response -Write (StrFromClause) 
'Response-Urite (StrUhereClause) 

' Response - Write (StrSflLSearchClause ) 

Dim ObjRsSearch 

'Set ObjRsSearch = objOracleConn - Execute (StrSflLSearchClause ) 
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Set ObjRsSearch = objOracleConn - Execute (StrSGLSearchClause ) 

if ob jOracleConn- Errors-Count > 0 then 

Response-Write ( "Error in executing") 

For intloop = D to objOracleConn -Errors -Count - 1 

Response, Write ( "Err #: " a objOracleConn - Errors - Item - Number ) 
Response. Write ( "Err Msg: " a objOracleConn - Errors - Item- Description ) 

Next 
end if 

StrSearchHTIILClause = "" 
r if Ob jRsSearch-EOF then 

f Response-Write("R no recs"a Ob jRsSearch - recordcount ) 
'else 

' Response. Write("R recs"a Ob jRsSearch- recordcount) 
'end if 

• if now rows founds then display messagei else take them to the 
f next page 

if not Ob jRsSearch -EOF then 

' redriect to the ad directly 

Session ("Search_Clause") = StrSflLSearchClause 
Response -Clear 

Response. Red irect ( n vehicle_display_result -asp") 
end if 

' continue with this ad with the message 

'While Not Ob jRs . EOF 

' redirect to next page showing result 

' StrSearchHTHLClause = StrSearchHTtlLClause & "<TR><TD><a href="""">" a ObjRs * 
< "VEHICLE_HAKE" ) a "</TD><TD>" a Ob jRs ( " VEHICLE_f10DEL" ) & "</TI»<T]» n 8 ObjRs 
("YEAR") & " </T3)><TD> " a Ob jRs ("PRICE") a "</TD><TD>" a ObjRs * 
("ADV_TITLE") a"</TD><TD>" a ObjRs( "HILEAGE") a "</TD><TD>" a ObjRs * 
( "UNIT_0FJ1EASURE") a "</A></TD></TR>" 

' Ob jRs -HoveNext 
'Wend 

'if StrSearchHTriLClause = "" then . //TW/TPS „ 

StrSearchHTIILClause = "<TR><TD> No Vehicles Found that meet your criteria </TD></TK> 

'end if 

Ob jRsSearch -close 

Set ObjRsSearch = Nothing 

end if 

'Response-Write ("error count: " a objOracleConn -Errors (0) -Description a"<P>") 

' now get the Vehicle models 

Dim strVJ1odelS<2L<2uery-. ObjRsflodel 

strV flodelSflLfluery = " SELECT EZC - CT_EZC_VEHICLEJ10DEL - VEHICLE JODEL_INT_KEY , EZC* 
TCT EZC VEHICLE J10DEL- VEHICLE J1AKE__INT_KEY,, EZC - CT_EZC_VEHICLE_f10DEL - * 

VEHICLE tlODELn EZC - CT_EZC_VEHICLE J10DEL - ACTIVE FROM EZC * 

CT_EZC_VEHICLEJ10DEL WHERE ( EZC - CT_EZC_VEHICLE_t10DEL • ACTIVE - 'Y' ) and EZC- 

CT_EZC_VEHICLE — MODEL - VEHICLEJ1 AKE_INT_KEY = '" 

if Request- Form (" lb_vehicle_make" ) = "" then 

strV f1odelS(2L(2uery = strV_ModelS(3L(3uery & "1' ORDER BY EZC . CT„EZC_VEHICLE_riODEL - * 
VEHICLE_J1AKE_INT„KEY i EZC - CT_ EZC„VEHICLE_I10DEL - VEHICLE_nODEL ASC " 

GlSS strV [1odelS4L<2uery = strV ModelS<2L(2uery a Request-Form ("lb_vehicle_make") a "' OR 2 E 2 A ^. * 
EZC - CT_EZC_VEHICLEJ10DEL - VEHICLE J1AKE_INT_KEY , EZC - CT_EZC_VEHICLE_I10DEL - VEHICLE_MODEL 
ASC " 

end if 



'Response- Write ( strV_(1akeS(2Lfluery+"<P>" ) 
' Response. Write ( strV_riodelSt2Lt2uery ) 
' now execute the query 

Set ObjRsHodel = objOracleConn - Execute (strVJIodelSfiLduery ) 
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if objOracleConn-Errors-Count > Q then 

Response -Write ( "Error in executing") 

For intloop = D to ob jOracleConn - Errors - Count - 1 

Response-Write ( "Err #: " & ob jOracleConn. Errors. Item. Number ) 
Response. Write ( "Err Msg: " & ob jOracleConn-Errors-Item-Description ) 

Next 
end if 

Dim StrV_nodelSelectHTf1L 

'Response - Write (Ob jRsllodel -recordcount) 

' Response. Write (strVJIodelSflLfluery) 

While Not Ob jRsModel - EOF 

StrV tlodelSelectHTML = StrV riodelSelectHTIIL a "<0PTI0N " 

if Request. Form ( "lb.vehi cle„model" ) = Ob jRsflodel ("VEHICLE_flODEL_INT — KEY" ) then 
StrVJodelSelectHTNL = StrV_f1odelSelectHTML 8 n selected " 

StrVSodelSelectHTJIL = StrV — Mode lSel ectHTML & "value=" & ObjRsflodel * 
7"VEHICLE_f10DEL_INT_KEY") &" >" & ObjRsflodel <"VEHICLE_J10DEL") & "</0PTI0N>" 

ObjRsflodel.floveNext 

Wend 

StrVJodelS^ "<0PTI0N value=0> </0PTI0N>" & StrVJIodelSelectHTflL 

StrV flodelSelectHTHL = "<SELECT id=lb_vehicle_model name=lb_vehicle_model size=l width=13tpx 

style = ""FONT-^ monospace. FONT-SIZE : x-sm11""> " & StrV.flodelSelectHTML & " </ * 

SELECT> " 

ObjRsflodel -close 

Set ObjRsflodel = Nothing 



Dim IntCount 
IntCount - 0 

'get list of vehicle makes 
Dim strVJ1akeS<2L(2uery 
Dim strVJIakeHTflL 

strV flakeSflLSuery = " SELECT EZC- CT_EZC_VEHICLE JAKE- VEHICLES AKE_INTJCEYiEZO * 
CT EZC VEHICLE HAKE - VEHICLE_f1AKE,EZOCTj:ZC_VEHICLE_f1AKE. ACTIVE FROM EZC- * 
COZCIVEHICLEJAKE WHERE EZC CT_EZC_VEHICLE_MAKE- ACTIVE = 'Y' ORDER BY EZC * 
CT_EZC_VEHICLE_MAKE - VEHICLE^ MAKE ASC " 

'Response- Write (strSflL(2uery+"<P> n ) 

' now execute the query 

Set ObjRs = ob jOracleConn - Execute <strV_MakeS(3L<2uery ) 
if ob jOracleConn. Errors-Count > 0 then 

Response -Write ( "Error in executing") 

For intloop = 0 to ob jOracleConn - Errors . Count - 1 

Response-Write ( n Err #: " & ob jOracleConn - Errors -Item-Number ) 
Response. Write ( "Err Ilsg: " & ob jOracleConn. Errors -Item- Description ) 

Next 
end if 

'RESPONSE. WRITE (" IIII "& OBJRS - max RECORDS ) 
' build the data for the vehicle makes 
While Not ObjRs - EOF 

strV MakeHTML = strVJIakeHTML & "<0PTI0N " 

if Request. Form ("lb_vehicle_make" ) = Ob jRs ("VEHICLEJ1AKE_INT_KEY" ) then 
strV_MakeHTML = strVJIakeHTML & " selected " 



strVSakeHTML = strVJakeHTML & "value=" & Ob jRs <"VEHICLE_MAKE_INT_KEY") &" >" & ObjRs * 
("VEHICLE_MAKE" ) & "</0PTI0N>" 

Ob jRs -MoveNext 
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bJend 



' add an empty option 

strVJIakeHTML = "<0PTI0N value=0> </0PTI0N>" & strVJIakeHTHL 

strVJIakeHTML = "<SELECT id=lb_vehicl e_make name=lb_vehicle_make size = l width=13bpx style * 
=""F0NT-FAt1ILY: monospaced FONT-SIZE : x-small nn LANGUAGE="" javascript"" onchange=""f orm ■ 
submit()""> " & strV_MakeHTni_ & " </SELECT> " 



ObjRs-close 

Set ObjRs = Nothing 

' build the data for the vehicle models 

'Dim StrVehf1ake_int_keyT StrPrevVehNake_intJcey 

'Dim StrflodelOptions n Str JavaScript_Function 

'Dim IntListCount 

'IntListCount = 0 

'StrVehf1ake„int_key="" 

'StrPrevVehMake__int_key = nn 



'javascript functions 

Response-Write<"<script ID=""clientEventHandlers JS5"" LANGUAGE 3 "" javascr ipt"">" ) & vbcrlf 
Response ■ Write <"< ! — ")& vbcrlf 
Response -Write<"")& vbcrlf 

Response. Write ( "function set__submit_value < ) " ) & vbcrlf 
Response. Write ("-C") & vbcrlf 

Response. Write("/* set value to show that this is a true submit ")& vbcrlf 



Response -Write (" 
Response -Write (" 
Response - Write (' 
Response - Write <" 



not just the refresh for model number ")& vbcrlf 
retrieve the data ")& vbcrlf 
*/")& vbcrlf 

document. f orml . submit_click - value = 1 ")& vbcrlf 



Response. Write<">")& vbcrlf 
Response. Write("")& vbcrlf 
Response. Write ("//—>") & vbcrlf 
Response .Write ("</script>") & vbcrlf 



'javascript functions 

'Response. Write ("<script ID=" n clientEventHandlers JS1"" LANGUAGE 3 "" javascript"">" > & vbcrlf 
'Response. Write ("<!—") & vbcrlf 
'Response. Write("")& vbcrlf 

'Response -Write ("function vehicle„make_onchange ( ) " ) & vbcrlf 
'Response. Write("-C")& vbcrlf 

'Response-WriteCV* re-load the vehicle model frame ")& vbcrlf 

' Response -Write (" remember display is the name of the frame ")& vbcrlf 

'Response-Write(" containing all the content")& vbcrlf 

'Response. Write<" */")& vbcrlf 



'find the vehicle make index that is chosen 



'Response -Write (" 
' Response -Write (" 
' Response -Write (" 
'Response- WriteC" 
vbcrlf 



var li_VehicleHakeOption = -1 ")& vbcrlf 

for ( var i = D'-i i <= f orml - lb_vehicle_jnake - lengths i + + ) { ")& vbcrlf 
if ( forml.lb_vehicle_make.optionsEil. selected == true ) { ")& vbcrlf 
li_Vehiclef1ake0ption = f orml - lb_vehicle_make - selectedlndex ")& 



'delete all the options 

'Response. Write(" for < var i=G\ i<= f orml - lb_vehicle__model - lengths i++ ) -C ")& vbcrlf 
'Response. Write<" f orml - lb_vehicle_model -optionsCil 3 null > " )& vbcrlf 



'While Not ObjRs - EOF 

'build the javascript function to load the options 

r 

StrVehP1ake_int_key - Ob jRs ("VEHICLE J1AKE_INTJCEY" ) 
' if StrVehMake_int_key <> StrPrevVehf1ake_int_key and StrPrevVehf1ake_int_key <> "" then 

'terminate the previous javascript block 
' Response. Write<">")& vbcrlf 

'start the counter again 
' IntListCount = 0 

' end if 



'see if new block should begin 
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1 if IntListCount ~ 0 then 

' Response. Write <" if ( f orml . lb_vehicle_make . optionsCli„Vehicleriake0ption3 == & * 

Ob jRs ("VEHICLE_HAKE_INT_KEY") a """){") a vbcrlf 
' end if 

' StrPrevVehMake_int_key = StrVehf1ake_int_key 

' Response. WriteC" f orml . lb_vehicle_model . optionsC" alntListCounta "3 = new option ( a 

Ob jRs ( T, VEHICLE_MODEL n ) & a Ob jRs ("VEHICLE_J10DEL_INT__KEY n )a ) ") a vbcrlf 

' IntListCount = IntListCount + 1 
r 

' Ob jRs ■ NoveNext 
'Wend 

'terminate the last if block 
'Response- Write (">" ) a vbcrlf 

'StrV flodelSelectHTflL = "<SELECT id=lb_vehicle_model name=lb_vehicle_model size=l style * 
=" n FONT-FAMILY: monospaced FONT-SIZE : x-small""> " a StrVJIodelSelectHTHL a "</SELECT>" 



' Ob jRs . close 

'Set ObjRs = Nothing 

'end javascript 

' Response- Write ("history. go (Q) n ) a vbcrlf 
f Response. Write ("f orml- submit ( ) rt )a vbcrlf 
'Response-Write("> n )a vbcrlf 
'Response. Write<" n )a vbcrlf 
'Response-liJrite( TT //--> n )a vbcrlf 
'Response .Write ( n </s crip t>") a vbcrlf 



</head> 

<fonTid=forinl name=forml action=<*=Request.ServerVariables( n script_name n )*> method="post n x* 

font size= n l">anbsp"T 
<TABLE align=center border=D cellPadding=D cellSpacing=Q width="100X > 



<TR> 

<TD></TI>> 

<TD colspan=3> 

<P align=lef txFONT color=green f ace=VerdanaXSTRONG>Enter A Search 

Cri teria</STRONGX/FONTX/px/TD> 
<T»></TI» 
<TDX/TD> 
<TD></TI» 
<T1»</T]»</TR> 
<TR> 
<TD> 

<P align=right><FONT face=Verdana size=l>Keyword : </FONTX/PX/TD> 
<TD colspan=3><F0NT face=Verdana size=l><INPUT id=textl name=sle_keyword value="<X - 
Request. Form ("sle_keyword") 
style="FONT-FAHILY : serifs FONT-SIZE: x-smalU HEIGHT: EEpxd WIDTH: E^px" 
x/F0NTx/TI» 
<TDX/TD> 
<TD></TD> 
<TD> 

<P align=right>anbspn</P></TD> 
<TDX/TD></TR> 
<TR> 
<TD> 

<P align=right><FONT face=Verdana size=l>Vehicle flake : </F0NTX/P></TD> 
<TD> 

<P align=left><FONT face=Verdana size=lxX =strV_riakeHTf1L *x/FONTx/Px/TD> 
<TDX/TD> 
<TD> 

<P align=lef t>anbspi</P></TD> 
<TD> 

<P align=right><FONT face=Verdana size=l>Condition : </F0NTX/Px/T»> 
<TD><F0NT face=Verdana size=l><INPUT id=sle_condition 

name=sle_condition value= n <X = Request . Form <"sle„condition n ) X> n 
sty le=" FONT-FAMILY : serif=i FONT-SIZE : x-smal l n X/FONTX/TDx/TR> 
<TR> 
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<TD> 

<P align=right><FONT face=Verdana size=l>f1odel : </FONTx/Px/TD> 
<TJ»<y. =StrV_rtodelSelectHTML */.x/TD> 
<TDX/TD> 
<TDX/T1» 
<TDX/TD> 
<TDX/TDX/TR> 
<TR> 
<TD> 

<P align = right><FONT face=Verdana size=l>Price Range : </FONTx/PX/TD> 
<TD><FONT face=Verdana size=l><INPUT id=sle_min_price name=sle_min_price value="<* = 
Request -Form ("si e_min_pr ice") *>" 
style="FONT-FAMILY: serifs FONT-SIZE: x-smalU HEIGHT: Elpxi WIDTH : lGapx">&nbspn&nbspi 
<F0NT face=Verdana size=l>to : <F0NT face=Verdana size=l> 
<INPUT id=sle_max_price 

name=sle_fnax_price value="<* = Request .Form("sle_max_price") *>" sty le="HEIGHT : 22px'^ 
WIDTH: ^flpx"X/FONT> </FONTX/FONTX/TD> 
<TDX/TD> 
<TD> 

<P align=left><FONT face=Verdana size=lx/FONTX/Px/TD> 
<TD> 

<P align=right><FONT face=Verdana size=l>City : </FONTX/PX/TD> 
<TD><F0NT face=Verdana size=l><INPUT id=sle_city 

name=sle_city value="<X = Request - Form ("sle_city") *>" style="FONT-FAflILY: serifs 
FONT-SIZE : x-small"X/FONT></TD></TR> 

<TR> 
<TD> 

<P align=right><FONT face=Verdana size=l>Year Range : </F0NT></P></TD> 
<TD><F0NT face=Verdana size=l><INPUT id=sle_min_year name=sle_min_year 

value="<* = Request. Form ("sle_min_year" ) *>" style="F0NT-FAHILY: sans-serifs FONT-SIZE 
: x-smalln HEIGHT : 22px; WIDTH: 106px">&nbsp n <FONT face=Verdana size=l>to : <F0NT 
face=Verdana size=lxlNPUT id=textl3 name = sle_tnax_y ear 
style= n HEIGHT: 22px; WIDTH: ^fipx"X/FONT> </F0NT></F0NTX/TD> 
<TD></TD> 
<TD> 

<P align=lef txFONT face=Verdana size=l></FONTX/Px/TD> 
<TD> 

<P align=right><FONT face=Verdana size=l>State : </FONTX/PX/TD> 
<TDXF0NT face^Verdana size=l><INPUT id=sle„state 

name=sle_state value="<* = Request . Form("sle_state") £>" 
style="F0NT-FAI1ILY: serifi FONT-SIZE : x-small"X/FONTX/TDx/TR> 
<TR> 
<TD> 

<p align="right"><font f ace="Verdana" size="l">f1ileage :</f ontx/p></TD> 

<TD> 

<P align=lef txSELECT id=selectS name=lb_mi leage size=l 
style = "FONT-SIZE: x-smalli HEIGHT : 22px"i WIDTH: 13bpx"> 

<0PTI0N selected value="" 
> </0PTI0N><0PTI0N 

value=D>a - c l-. e ^</0PTION> 

<0PTI0N value=l>lQ-.QOa - IT^TK/OPTIONxOPTION value = 2>20 -i QOO - 
2Ti c H c K/0PTI0NX0PTI0N value=3>3D-,Q0Q - 
3in c H c K/0PTI0NXQPTI0N value=H>MQnQDQ - 
4T-, c m</0PTI0N><0PTI0N value=5>50-.OOQ - 
ST-.^ t ^</0PTI0NX0PTI0N value=fci>bu\0Q0 - 
k c ii' : i c n</0PTI0N><0PTI0N value=7>70i00Q - 
7 c ^ e n</0PTI0NXOPTION value=fl>aO-.Ot)0 - 
fi^-,TH</OPTIONxOPTION value^^aiOOCJ - 
^QOCX/OPTIONXOPTION value=10>10Q-.DDQ - 
10 c ^ c H t: K/OPTIONXOPTION value = ll>llD-,DOQ - 
ini c m</OPTION><OPTION value=12>12Q-,D00 - 
12 e ^ c H</0PTI0NX0PTI0N value=13>13D tQQO - 
13 c l-i c ^ c K/OPTIONxOPTION value=lM>mQ iOQO - 
!M c i-, c m</OPTIONxOPTION value=15>&gt \ - 

lSDiDOO</OPTIONX/SELECT><SELECT id=select3 name=lb_mi leage_uom size=^ 
1 

style="F0NT-FAf1ILY : serifs FONT-SIZE : x-smalU HEIGHT : 22pxS WIDTH: 5^px"> 
<0PTI0N selected value=T1>f1i les</OPTIONXOPTION 

value=Kf1><n</OPTIONX/SELECTX/P></TD> 
<TD></TD> 
<TD></TD> 
<TD> 
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<P align=rightxFONT face=Verdana size=l>Zip : </FONTX/PX/TD> 
<TDXFONT face=Verdana size = l><INPUT id=sle_zip value= n <* = Request - Form ( n sle_zip" ) 
name=sle_zip style="FONT-FAMILY : serif FONT-SIZE: x - S mall n x/FONTx/TDx/TR> 

<TR> 

<TDX/TD> 
<TDX/TD> 
<TD></TD> 
<TD></TD> 
<TD> 

<P align=right><FONT face=Verdana size=l>Doors : </FONTX/PX/TD> 
<TDXSELECT id=select4 name = lb__doors size=l 

style="FONT-FAMILY: serifs FONT-SIZE: x-small*n HEIGHT: 21px', VERTICAL-ALIGN: middle, ^ 
WIDTH : 13bpx n 

> 

<OPTION selected value=""x/0PTI0NX0PTI0N value=2>E 
Doors</0PTI0NX0PTI0N value=3>3 Doors</OPTIONXOPTION value=M>M 
Doors</0PTI0NX0PTI0N value=5>S Doors</OPTIONX/SELECTX/TDX/TR> 

<TR> 

<TDX/TD> 
<TDX/TD> 
<TDX/TD> 
<TD></TD> 
<TD> 

<P align=right><FONT face=Verdana size=l>Transmission : </FONTX/PX/TD> 
<TD><SELECT id=selectl name=lb„transmission . . _ ,,, .... . 

style = n F0NT-FAI1ILY: serif, FONT-SIZE : x-small*, HEIGHT : Elpx^ VERTICAL-ALIGN : middle, * 
WIDTH : 13bpx n 

> 

<0PTI0N selectedX/OPTIONX/SELECTX/TD></TR> 

<TR> 

<TD></TD> 
<TD></TD> 
<TDX/TD> 
<TD></TD> 
<TD> 

<P align=right><FONT face=Verdana size=l>Engine : </F0NT></P></TD> 
<TD><F0NT face=Verdana size^lXlNPUT id=textfi 

name=sle_engine 

style=" FONT-FAMILY : serif, FONT-SIZE : x-small n X/FONTx/TDX/TR> 

<TR> 

<TDX/TD> 
<TD></TD> 
<TD></TD> 
<TDX/TD> 
<TD> 

<P align=right><FONT face=Verdana size=l>Fuel Type : </F0NT></P></TD> 
<TD style="VERTICAL- ALIGN: middle"xSELECT id=selectH name=lb_f uel_type 

sty le= n FONT-FAMILY : serif, FONT-SIZE: x-small*, HEIGHT: 21px=, WIDTH: 13Spx n > 
<0PTI0N selected></OPTIONX/SELECTX/TDX/TR> 

<TR> 

<TD></TD> 
<TD></TD> 
<TD></TD> 
<TD></TD> 
<TD> 

<P align=right><FONT face=Verdana siza=l>Ext- Color : </F0NT></P></TD> 
<TDXF0NT face=Verdana size=l><INPUT id=textlO name=sle_ext_color 
style= n FONT-FAMILY : serifs FONT-SIZE: x-small"X/FONTX/TDX/TR> 

<TR> 

<TD></TD> 
<TDX/TD> 
<TD></TD> 
<TD></TD> 
<TD> 

<P align=right><FONT face=Verdana size=l>Int . Color : </F0NTX/P></TD> 
<TD><F0NT face=Verdana size=lXINPUT id=textT name=sle_int_color 
style= n F0 NT-FAMILY : serif; FONT-SIZE : x-small"x/FONTX/TDX/TR> 

<TR> 

<TDX/TD> , . 

<TD><F0NT face=Verdana size=l><INPUT id=submitl name=b_search onClick= n set_submi t_value 
()" style="HEIGHT: E4px", WIDTH : ^px" type=submit value=Search>&nbsp'n 
<INPUT id=resetl name=resetl style= n HEIGHT : £Hpx; WIDTH: l?p X " type=reset value = Reset></FONT * 
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></TD> 
<TD> 

<P align=right>&nbspi<* =StrSearchHTriLClause */.x/P></TD> 
<TD> 

<P align=lef t>anbspi</P></TI» 
<TI»</T1» 

<TDX/T1»</TR></TABLE> </font> 

<input type="hidden" value= n Q n -. name= n submit_click n > 
</f orm> 
</body> 
</html> 
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<7.d Language=VBScript *> 

<html> 

<head> 

<meta NANE="GENERATOR" Content="t1icrosof t Visual Studio t-0"> 

<y. 

Dim ob jOracleConni strConnectString i ObjRs 
Dim strS(2L(2uery 

Set objOracleConn = Server- CreateOb ject ("ADODB -Connection" ) 
strConnectString = "DSN=EZC Oracle;UID=ezc;pwd=sql n 
objOracleConn-Open strConnectString 

If Request-ServerVariables("CONTENTJ_ENGTH")<> 0 Then 
' data has already been input 
' start saving data 



else 

r Response -Write ("error count: 



a objOracleConn-Errors(O) -Description &"<P>") 



'get the list of options for this particular car 



strS(2L(2uery 
strSflLtfuery 
strS(2L<2uery 
strS(2L(2uery 
strS(2L(2uery 
strSi2L<2uery 



SELECT CT„EZC„ADV_0PTIONS-ADV_0PTIONS_INT_KEY-, " 
strSfiLduery a " CT_EZC_ADV_OPTIONS-OPTION_DESC<. 

nvl (DT_EZC„ADV_AND_OPTIONS - ADv_OPTIONS_INT_KEY ^ 1 H ' ) " 
FROM CT_EZC_ADv_OPTIONS DT„EZC_ADV_AND_0PTIONS 
WHERE CT„EZC_ADV_OPTIONS.ADV_TYPE_INT_KEY = ' AA2 ' " 
and CT_EZC_ADV_OPTIONS-ADV_OPTIONS_INTJ<EY = 



strS(2Lfiuery a 
strS<2L(2uery & 
strS(2L(2uery a 
strSflLtfuery & 



DT_EZC_ADV_AND_OPTIONS-ADV_OPTIONS_INT_KEY <+) " 
'Response- Write ( strS<3L<2uery+"<P>" ) 
' now execute the query 

Set ObjRs = objOracleConn. Execute (strS<2L<3uery > 
if objOracleConn-Errors-Count > D then 

Response • Write ( "Error in executing") 

For intloop = 0 to ob jOracleConn - Errors . Count - 1 

Response. Write ( "Err #: " a ob jOracleConn - Errors . Item - Number ) 
Response. Write ( "Err llsg: " a ob jOracleConn -Errors - Item-Description ) 

Next 
end if 



Dim IntCount 
IntCount = 0 

Dim StrHTni__RealestateOptions 



StrHTML„RealestateOptions = "<TABLE rowspan=10>" 



While Not ObjRs -EOF 



IntCount = IntCount + 1 



r if oddi then begin a new row 

if RounddntCount/2-.l) - round (IntCount/2-.a) =0-5 then 

StrHTt1L„Realestate0ptions = StrHTriL_RealestateOptions a "<TR>" 
end if 

StrHT?1L_.Realestate0ptions = StrHTf1L_Realestate0ptions a "<TD><INPUT id=checkbox" aObjRs M 
("ADV__OPTIONS_INT_KEY n )a" name=checkbox" aOb jRs <"ADV_OPTIONS_INT_KEY" >a " type= 
Checkboxx/TDXTDXFONT face=Verdana size=l>" &0b jRs ("0PTI0N_DESC") a "</TD>" 



r if eveni then end the row 

if Round<IntCount/2il) - round(IntCount/2-,D) =0 then 

StrHTML_RealestateOptions = StrHTHL^RealestateOptions & "</TR>" 
end if 



Ob jRs -HoveNext 



Wend 

StrHTt1L_Realestate0ptions = StrHTHL_RealestateOptions &"</TDX/TRX/TABLE> T 



Ob jRs -close 

Set ObjRs = Nothing 
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'get list of vehicle makes 
Dim str_SubDivisionSflL(2uery 
Dim str_SubdivisionHTML 

str_SubDivisionS(2L(3uery = " SELECT CT_EZC_SU8DIVISI0N . SUBDIVISION_INT_KEY -.CT_EZC_SUBDIVISION *r 
- SUBD I VISION -i CT_EZC_SUBDIV ISION - ACTIVE FROM CT_EZC_SUBDIVISION WHERE * 
CT.EZCJUBDIVISION- ACTIVE = 'Y' ORDER BY CT_EZC_SUBDI VISION - SUBDIVISION ASC " 

'Response- Write < strS£Li3uery+"<P>") 

' now execute the query 

Set ObjRs = objOracleConn -Execute (str_SubDivisionS(2L(2uery ) 
if objOracleConn . Errors - Count > 0 then 

Response - Write ( "Error in executing") 

For intloop = 0 to objOracleConn . Errors . Count - 1 

Response - Write < "Err #: " & objOracleConn . Errors . Item • Number ) 
Response. Write ( "Err Msg: " & objOracleConn - Errors - Item . Description ) 

Next 
end if 

' build the data for the vehicle makes 
IntContactListCount = 0 
While Not Ob jRs - EOF 

str_SubdivisionHTKL = str_SubdivisionHTML & "<0PTI0N value=" & ObjRs 
("SUBDIVISION_INT_KEY"> & ">" & Ob jRs ("SUBDIVISION" ) & "</OPTI0N>" 

Ob jRs -MoveNext 

Wend 

str_SubdivisionHTML = "<SELECT id=selectS name=lb_subdi vision size=l style=""FONT- FAMILY: 
monospace"! FONT-SIZE"- x-small"" LANGUAGE 3 "" javascript"" onchange=""subdivision_onchange 
()""> " & str_SubdivisionHTML & " </SELECT> " 

ObjRs -close 

Set ObjRs « Nothing 

' now get the Vehicle models 
Dim strV_ModelS(3Lfluery 

strV_J1odelS(2L(2uery = " SELECT CT_EZC_VEHICLE_MODEL - VEHICLE_MODEL_INT_KEY M 
CT_EZC_VEHICLE_MODEL - VEHICLE_MAKE_INT_KEY CT„EZC„VEHICLE_MODEL . VEHICLE_MODEL X 

CT_EZC_VEHICLEJ10DEL. ACTIVE FROM CT_EZC„VEHICLEJ10DEL WHERE < * 

CT_EZC_VEHICLE_MODEL- ACTIVE = 'Y r ) ORDER BY CT_EZC_VEHICLEJ10DEL - VEHICLE_MAKE_INT_KEY-. 
CT_EZC„VEHICLE_M0DEL.VEHICLE_MODEL ASC " 

' Response - Write (str_SubDivisionS<2L<2uery+"<P>") 

1 now execute the query 

Set ObjRs = ob jOracleConn - Execute (strV_ModelS<2Lfiuery ) 
if objOracleConn -Errors -Count > 0 then 

Response -Write ( "Error in executing") 

For intloop = D to objOracleConn - Errors - Count - 1 

Response -Write ( "Err #: " & objOracleConn - Errors - Item - Number ) 
Response -Write ( "Err Msg: " & objOracleConn - Errors -Item- Description ) 

Next 
end if 

' build the data for the vehicle models 

Dim StrV_ModelSelectHTML-» StrVehMake_int_key -> StrPre vVehMake_int_key 

Dim StrModelOptionsT Str JavaScript_Function 

IntListCount - D 

StrVehMake_int_key="" 

StrPrevVehMake_int_key = "" 

'javascript functions 

Response. Wri te ("<script ID=""clientEventHandlers JS1"" LANGUAGE^"" javascript"">") 
Response -Write ("< ! — ") 
Response - Write ("") 

Response -Write ("function subdivision_onchange ( ) " ) 
Response - Write ("{") 

Response. Write("/* re-load the vehicle model frame ") 

Response -Write (" remember display is the name of the frame ") 
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Response. WriteC" containing all the content") 

Response -Write (" */") 

'find the vehicle make index that is chosen 

Response. WriteC var li.VehicleHakeOption = -1 ") 

Response. WriteC" for ( var=i = 0; i <= vehicle_tnake . lengths i + + ) -C ") 

Response. Write(" if ( vehicle_make . optionsCil . selected == true ) -C ") 
Response -Write*" li_VehicleMakeOption = i >> ") 

'delete all the options 

Response -Write<" for < var i=Qi i<= vehicle_model . lengths i++ ) -C n ) 
Response -Write<" vehicle_model . optionsCi3 = Null } " ) 



Uhile Not Ob jRs - EOF 



'build the javascript function to load the options 
i 

StrVehnake_intJcey = Ob jRs < n VEHICLE_MAKE_INT JCEY") 

if StrVehMake_int_key <> StrPrevVehriake_int_key and StrPrevVehf1ake_int_key <> nn then 

'terminate the previous javascript block 

Response -Write ("}") 

'start the counter again 

IntListCount = Q 
end if 



'see if new block should begin 
33 if IntListCount = 0 then 

"'Z Response. WriteC" if C vehicle_make -optionsCli_Vehiclef1ake0ption3 == a ObjRs * 

; ^ ("VEHICLE_f1AKE_INT_KEY" ) & "' ) -C" ) 

ftp end if 

"J; StrPrevVehf1ake_int_key = StrVehf1ake_int_key 

^ Response. WriteC" vehicle_model -optionsC" SlntListCountfc "3 = new option ( """ & ObjRs 

m ("VEHICLEJ10DEL") & """„ """ & Ob jRs ( "VEHICLE J10DEL_INTJCEY" ) & """ ) ") 

IntListCount = IntListCount + 1 

■y Ob jRs -floveNext 

tilend 

'terminate the last if block 
"~4 Response - Write ("}") 

s« StrV_ModelSelectHTf1L - "<SELECT id=selectb name = vehicle„model size=l style= nn F0NT-FAf1ILY : *r 
]t: monospaced FONT-SIZE: x-small""> " & StrVJIodelSelectHTML & "</SELECT>" 

|^ ObjRs-close 

Set ObjRs = Nothing 



'end javascript 

Response. Wr ite ("hi story .go <□)") 
Response -WriteC"}") 
Response - Write ("") 
Response-WriteC"// — >") 
Response -Write C"</script>") 

'get all the contact information for this user 
'account id is in session variable (accountid) 

Dim strCust_ContactS(2L(2uery 

' temp 

Session ( "ADV_DETAILS_INT_KEY") = "AA1" 
Session<"CUST_INT„KEY") = "AA1" 



strCust_ContactS(2L<2uery = strCust_ContactS<2L(2uery 

strCust_ContactS<2L<2uery = s trCus t_ContactS(2Lfiuery 

strCust_ContactS(2L<2uery = strCust_ContactS(2L(2uery 

strCust_ContactS<3L<2uery = strCust_ContactS(2L<2uery 

strCust_ContactS(2L<2uery = strCust_ContactS<2L(2uery 

strCust_ContactS(3L<2uery = strCust_ContactS(2L(2uery 

( n ADV_DETAILS_INTJ<EY n ) &"')-, " 

strCust_ContactSdLduery = strCust_ContactS(3L<3uery 



& " SELECT CT.CUST_CONTACT_CODEi 
& "CT.CUST__CONTACT_DESCRIPTION n 
& "CT.CUST_CONTACT_TYPE_INTJCEYi 
& "COCUST_C0NTACTJ)ATA-, 
& "CCCUST_CONTACT_INT_KEYn 

& n nvl(CD-AI>V_DETAILS_INT_)CEYi '" & Session^ 
& "nvl< CD . ADV_CONTACT_DETAILS_INT_KEY 
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i 'NEW ) " 

strCust_ContactS(2Lfluery = strCust_ContactS(3L(2uery & "FROfl CT_EZC_CUSTOMER_j:ONTACT_TYPE CT ^ 

strCust_ContactS<2Lfluery = strCust_ContactS(2L(3uery & "DT_EZC_ADV_CONTACT_DETAILS CD-. 

strCust_ContactS<2L(2uery = strCust_ContactS(2L(2uery a "DT_EZC_CUST0f1ER„C0NTACT CC " 

strCust_ContactS<3L<3uery = strCust_ContactS(3L(2uery a "WHERE ( CD - cust_contact_int_key ( + ) = CC* 

• cust_contact„int_key ) and " 

strCust_ContactSi&_{2uery - strCust„ContactS(2L<2uery & "( CC-CUST CONTACT TYPE INT KEY = CT- v 

CUST_CONTACT_TYPE_INT_KEY ) and" ~ 

strCust_ContactS(2Li2uery = strCust_ContactS(2L(3uery a "< CC-CUST INT KEY = '" a Session ✓ 

("CUST_INT_KEY")a"' )" ~ 

' now execute the query 

Set ObjRs = ob jOracleConn -Execute (strCust_ContactS<3L<2uery ) 
if ob jOracleConn- Errors -Count > D then 
Response -Write ( "Error in executing") 
For intloop = □ to ob jOracleConn ■ Errors . Count - 1 

Response. Write ( "Err #: " & ob jOracleConn . Errors . Item . Number ) 
Response. Write ( "Err Msg: " & ob jOracleConn -Errors - Item . Description ) 

Next 
end if 



IntCount = 0 

Dim StrHTf1LCust„Contact0ptions 

StrHTMLCust_ContactOptions = "<TABLE bgColor=""yellow"" border=""D"" cellPaddinq=""l"" 
cellSpacing=""l"" width=""10Q*"">" 

While Not ObjRs « EOF 

IntCount = IntCount + 1 



'if oddi then begin a new row 

if Round(IntCount/Eil) - round<IntCount/E-.D) =0-5 then 

StrHTMLCust„ContactOptions = StrHTf1LCust„Contact0ptions S "<TR>" 
end if 



StrHTMLCust_ContactOptions = StrHTMLCust_ContactOptions & "<TD><INPUT id=checkbox" aObjRstf 
<"CUST„CONTACT_INT_KEY")&" name=checkbox" &0b jRs ("CUST_CONTACT„INT_KEY") & " type= * 
checkboxX/TDXTDXFONT face=Verdana size=l>" aObjRs 

<"CUST_CONTACT_DESCRIPTION") & " (" a Ob jRs < "CUST„CONTACT_DATA" > & ") </TD>" 
'if eveni then end the row 

if RounddntCount/Eil) - round (IntCount/2nO ) =0 then 

StrHTMLCust_ContactOptions = StrHTf1LCust_ContactOptions & "</TR>" 
end if 



ObjRs- floveNext 

Wend 

StrHTHLCust_ContactOptions = StrHTI1LCust_ContactOptions a"</TDx/TRx/TABLE>" 

Ob jRs. close 

Set ObjRs = Nothing 

end if 



>.> 

</head> 
<body> 

<form><font size="l"> 

<TABLE border=0 cellPadding=l cellSpacing=l width ="100*" style="HEIGHT : HMpxi WIDTH: bnpx"> 
< TBO D Y> 
<TR> 

<TD align=middle> 

<TABLE align=center border=0 cellPadding=l cellSpacing=l 
style="HEIGHT: 333px; WIDTH: S77px" width="10QX"> 

<TBODY> 

<TR> 

<TD align=middle> 

<P align=right><FONT face=Verdana size = l>Title : </FONTx/Px/TD> 
<TD align=middle colSpan=3> 
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<P align=leftXFONT face=Verdana size=l><INPUT id=textl name=textl 

style= n FONT-FAMILY: serif; FONT-SIZE : x-small; HEIGHT : EEpx; WIDTH: i43flpx">&nbsp *r 
;</FONTx/Px/TD> 
<TD align=middle></TD> 
<TD align=middleX/TD> 
<TD align=middleX/TDX/TR> 
<TR> 

<TD align=middle> 

<P align=right><FONT face=Verdana size=l>Descr iption : </FONTx/Px/TD> 
<TD align=middle colSpan=3> 

<P align = leftxTEXTAREA id=TEXTAREAl name=TEXTAREAl style =" FONT-FAMILY: serifs wT 
FONT-SIZE: x-small; HEIGHT : 38px; WIDTH : MMlpx n X/TEXTAREAX/Px/TD> 
<TD align=middleX/TD> 
<T]> align=middleX/TD> 
<TD align=middleX/TDX/TR> 
<TR> 

<TD align=middle> 

<P align=rightXFONT face=Verdana size=l>Existing URL : </FONTx/Px/TD> 
<TD al ign=middle colSpan=3> 

<P align=leftxlNPUT id=textlE name=sle_url 

style="F0NT-FAf1ILY: serifs FONT-SIZE : x-small; HEIGHT: £lpx; WIDTH: 43<5px n X/Px/V 
TD> 

<TD align=middleX/TD> 
<TD align=middleX/TD> 
<TD align=middlex/TDx/TR> 
<TR> 

<TD align=middle> 

<P align=right><FONT face=Verdana size=l> Sub Division: </FONTx/PX/TD> 
<TD al ign=middle> 

<P align=leftx*; =str_SubdivisionHTML *x/Px/TD> 
<TD align=middle> 

<P align=right><FONT face=Verdana size=l>School District :</FONTx/Px/TD> 
<TD align=raiddle><SELECT id=selectti name=vehicIe„model size=l 

style="FONT-FAMILY monospaced FONT-SIZE : x-small; HEIGHT: EEpx; WIDTH : I3Epx n x/*> 
SELECT></TD> 
<TD align=middle> 

<TABLE bgColor=yellow border=Q cellPadding=l eel lSpacing=l 

width="10Q5: TT > 

</TABLE></TDx/TR> 

<TR> 

<TD align=middle> 

<P align=right><FONT face=Verdana size=l>Price : </F0NTX/P></TD> 
<TD align=middle> 

<P align=lef txFONT face=Verdana size=l><INPUT id=textE name=textE 

sty le="F0 NT-FAMILY : serif; FONT-SIZE : x-small"XINPUT id=checkboxl 

name = checkboxl type=checkbox>  Firm</FONTX/Px/TD> 
<TD align=middle> 

<DIV align=rightxFONT face=Verdana 

size=l>Condition:</FONTX/DIV></TD> 
<TD align=middle><FONT face=Verdana size=l><INPUT id=text c i name=text c l 

style="HEIGHT : EEpx; WIDTH : 131px n X/F0NTX/TD> 
<TD align=middle></TDx/TR> 
<TR> 

<TD align=middle> 

<P align=rightXFONT face=Verdana siza=l>Bedrooms : </FONTx/PX/TD> 
<TD align=middle> 

<P align=left><FONT face=Verdana size=lxlNPUT id=text3 name=text3 

style= n FONT-FAMILY : sans-serif; FONT-SIZE : x-small; HEIGHT: E2px; WIDTH : * 
133px n x/F0NTX/P></TD> 
<TD align=middle> 

<P align=right><FONT face=Verdana size=l>Car Port : </FONTx/PX/TD> 
<TD align=middleXSELECT id=selectE name=carport 

styles" FONT-FAMILY: serif; FONT-SIZE: x-small; HEIGHT: Elpx; WIDTH : 135px n 

size=l 

> 

<OPTION selected value=Y 
>Yes</0PTION><OPTI0N 
value=N>No</OPTIONX/SELECTX/TD> 
<TD align = middle></TDx/TR> 
<TR> 

<TD align=middle> 

<P align=right><FONT face=Verdana size=l>Square Ft : </F0NTx/P></TD> 
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<TD align=middle> 

<P align = lef tXFONT face=Verdana size=l><INPUT id=textll name=textll 
style= n FONT-FAMILY: serif; FONT-SIZE : x-smal l"X/FONTX/PX/TD> 
<TD align=middle> 

<P align=right><FONT face=Verdana size=l>Year Built : </FONTX/PX/TI>> 
<TD align^middleXFONT face=Verdana size=l><INPUT id=textfl 

name=textfl style = "FONT-FAriILY : serif; FONT-SIZE ' x-small n x/FONTx/TD> 
<TD align=middle></T3»</TR> 
<TR> 

<TD align=middle> 

<P align=right><FONT face=Verdana size=l>Bathrooms : </FONTX/Px/TD> 
<T3> align=middle> 

<P align=lef txFONT face=Verdana size=l><INPUT id=text? name=text? 

style = "FONT-FAI1ILY: serif; FONT-SIZE: x-smal l"x/FONTx/PX/TD> 
<T3> align=middle> 

<P align=rightxFONT face=Verdana size=l>City : </FONTx/PX/TD> 
<T3> align=middleXFONT face^Verdana size=l><INPUT id=text4 

name=text4 style="FONT-FAniLY : serif; FONT-SIZE: x-small rt X/FONTx/TD> 
<TD align=middleX/TD></TR> 
<TR> 

<TD align=middle> 

<P align=rightxFONT face=Verdana size=l>Garage Size :</FONTx/P></TD> 
<TD align=middle> 

<P align=lef txSELECT id=selectH name=select4 size=l 

styl e="FO NT-FAMILY : serif; FONT-SIZE : x-small; HEIGHT : 21px; WIDTH: 13bpx"> 
<OPTION selected value=2>2 Doors</OPTIONxOPTION value=3>3 
Doors</OPTIONXOPTION value=4>4 Doors</OPTIONXOPTION value=5>5 
Doors</OPTIONX/SELECTx/PX/TD> 
<TD align=middle> 

<P align=right><FONT face^Verdana size=l>State : </FONT></P></T3» 
<TD align=middle><FONT face=Verdana size=l><INPUT id=text5 

name = textS style="FONT-FAMILY : serif; FONT-SIZE : x-smal l"X/FONTx/TD> 
<TD align=middleX/TD></TR> 
<TR> 

<TD align=middle> 

<P align=right><FONT face=Verdana 

size=l>Remodeled:</FONTx/PX/TD> 
<TD align=middle> 

<P align=lef tXSELECT id=selectl name=selectl 

style =fT FONT-FAMILY : serif; FONT-SIZE: x-small; HEIGHT : 21px; WIDTH: 13bpx" 
size=l 

> 

<OPTION selected value=Y 
>Yes</OPTION><OPTION 
value=N>No</OPTIONX/SELECTX/PX/TD> 
<TD align=middle> 

<P align=rightXFONT face=Verdana size=l>Zip : </FONT></Px/TD> 
<TD align=middleXFONT face=Verdana size^lxlNPUT id^textt 

name=textb sty le="FONT-FAf1ILY : serif; FONT-SIZE: x-smal 1"X/F0NTX/TD> 
<TD align=middleX/TDX/TR> 
<TR> 

<TD align=middle colSpan=4> 

<P align=lef txFONT color=green face=Verdana size=S>Choose the 

contact methods to be used in the Ad</FONTx/Px/TD> 
<TD align=middlex/TD> 
<TD align=middle></TD> 
<TD align=middle></TDX/TR> 
<TR> 

<TD align=tniddle colSpan=4> 

<TABLE align=center bgColor=yellow border^D eel lPadding=l 
cellSpacing=l width="10Q"/."> 

</TD> 

<TR> 

<TD align = middleX* =StrHTMLCust_ContactOptions V.x/TDX/TRX/TABLE> </font> 

<P> 
<P> 
<P> 

<P align=left><INPUT id=submitl name=submitl style="HEIGHT : 24px; WIDTH : Hpx" ^ 
type=submit value=Save>  
<INPUT id^resetl name=resetl style= n HEIGHT : 24px^ LEFT : lQOpx; TOP : lpx; WIDTH : 17px" type= 
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reset value=Reset></P></TD></TR></TBODYx/TABLE></TI» 
<TD align=middle bgColor=yel low vAlign=top 
>&nbspi&nbspi&nbspi&nbspi&nbspi&nbspT&nbspT&nbspT&nbspn&nbspn&nbsp^&nbspT8inbspi^ 
nbspi&nbsp^&nbspn&nbsp^&nbsp^&nbspi&nbspTanbspT 

<TABLE bgColor=yellow bordered cellPadding=l cellSpacing=l width="lD0^"> 

</TABLE><* = StrHTf1L_Realestate0ptions *x/TDx/TRX/TBODYx/TABLE>  



</form></F0NT> 

</body> 

</html> 
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<'/. 3LANGUAGE=VBSCRIPT Z> 
<*K 

Option Explicit 
Response -Expires = 0 
On Error resume next 

Dim StrUserlD-i StrPasswordi StrConf irmPassword ~> StrEflail 
Dim StrAgentCheckedi StrPhoneNumber 

' connect to the database and build the page for contact types 
Dim ob jOracleConnn strConnectString i ObjRs 
Dim strS(3L(3uery 

Dim StrContactList(ED) i StrContactListKey (20) 

Dim IntContactListRecordCounti IntContactListCount 

Set ob jOracleConn = Server - CreateObject ("ADODB - Connection" ) 

strConnectString = "DSN=EZC Oracle iUID=ezcTpwd=sql" 

ob jOracleConn -Open strConnectString 

'execute the query to get the list of contact types 

strSfiLduery = "Select CUST_C0NTACT_TYPE_INT_1CEY n CUST„CONTACT_DESCRIPTION from 

CT_EZC_CUST0f1ER_C0NTACT_TYPE " 
'Response - Write (strS(2L<2uery+"<P>") 

r now execute the query 

Set ObjRs - ob jOracleConn • Execute (strS<2L(2uery ) 

if ob jOracleConn . Errors - Count > 0 then 
la? Response. Write ( "Error in executing for customer contact types") 

;;y for intloop = 0 to ob jOracleConn - Errors . Count - 1 

Ijj Response-Write ( "Err #: " & ob jOracleConn-Errors ( intloop) -Number ) 

"» Response. Write ( "Err Msg: " & ob jOracleConn. Errors ( intloop) -Description ) 

^ Next 

=y end if 

VZ IntContactListCount = D 

-U Uhile Not ObjRs - EOF 

IntContactListCount = IntContactListCount + 1 

StrContactListCIntContactListCount) = Ob jRs < n CUST_CONTACTJ>ESCRIPTION" ) 
W StrContactListKey(IntContactListCount) = Ob jRs ("CUST_CONTACT_TYPE_INT_KEY") 

SJ Ob jRs-MoveNext 

ps Uend 

!i St: 

=11 IntContactListRecordCount = IntContactListCount 

z*l. ObjRs-close 

Set ObjRs = Nothing 

If Request-ServerVariables< n CONTENT_LENGTH")<> D Then 
' data has already been input 
' check to see if the account exists 
' and it is valid. 

StrUserlD = Request-Form ("UserlD") 

StrPassword = Request. Form ("UserPassword" ) 

StrConf irmPassword = Request-Form ("conf irmpassword") 

StrEMail = Request. Form ("email") 

StrAgentChecked = Request-Form ("Agentcheckbox") 

StrPhoneNumber = Request. Form ("PhoneNumber") 

'first make sure that all fields have been entered 
Dim strErrflsg 

if trim(StrUserID)= "" then 

strErrflsg = "User ID cannot be blank<P>" 
end if 

if trim (StrPassword) = "" then 

strErrHsg = strErrflsg 8 "Password cannot be blank<P>" 
end if 

if trim(StrConf irmPassword) = "" then 

strErrflsg = strErrflsg 8 "Confirm Password cannot be blank<P>" 
end if 

if trim(StrEMail) = "" then 

strErrflsg = strErrflsg & "E-flail cannot be blank<P>" 
end if 
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if trim<StrPhoneNumber) = "" then 

strErrflsg = strErrflsg & "Primary Phone Number cannot be blank<P> n 
end if 



'compare passowrds 

if trim(StrPassword) <> trim (StrConf irmPassword) then 

strErrflsg = strErrflsg a "Password fields do not match. Please re-enter<P>" 
end if 

if strErrflsg <> "" then 

'send a confirmation screen for the error 
Response. Write ( "<SCRIPT LANGUAGE 3 javascript>") 
Response. Write ( "") 

Response . Write ( "function w__onload() {") 
Response. Write (" alert ( """ & strErrflsg a " nn 
Response. Write ( ">") 
Response -Write ( "") 
Response -Write ( "</SCRIPT>") 



else 



'save the account information. 



'check rules 

'Rulel - UserlD and Primary Phone # should be unique 

strS(3L(2uery = "Select CUST.ID-. CUST_PH0NE_NUf1 from dt_ezc_customer_inf o " 
strS(3L<2uery = strS<3L(2uery a " where ( cust_id = '"a trim(StrUserlD) a" ' ) " 
strS£2L<2uery = strSdLi2uery a " or ( CUST„PH0NE_NUf1 = '" & trim * 
(StrPhoneNumber) & "') " 

'if no records are returned! then we are OK- 
Set ObjRs - ob jOracleConn - Execute (strSGLfluery ) 
if objOracleConn .Errors - Count > 0 then 

Response -Write ( "Error in executing customer duplicate verification") 
For intloop = 0 to objOracleConn - Errors - Count - 1 

Response. Write ( "Err #: " a objOracleConn. Errors(intloop) -Number ) 
Response .Write ( "Err Msg: " a objOracleConn . Errors < intloop ) -Description ) 

Next 
end if 



if not ObjRs. EOF then 

' the user id or phone number already exist 
if ObjRs ("CUST^ID") = StrUserlD then 

strErrflsg = "User ID: "a StrUserlD a " is already assigned- Please choose ^ 
another User" 

end if 

if ObjRs ("CUST_PH0NE_NUf1") = StrPhoneNumber then 

strErrflsg = "Primary Phone Number: "a StrPhoneNumber a " is already assigned ^ 
. Please choose another User" 

end if 



'send a messageto the window 



Response -Write C 

Response - Write ( 

Response - Write ( 

Response- Write (' 

Response . Write C 

Response - Write C 



"<SCRIPT LANGUAGE* javascript>") 

tin j 

"function w„onload() -C") 

alert ( """ a strErrflsg a """ 
">") 



)n") 



Response- Write ( "</SCRIPT>") 

ObjRs - close 

Set ObjRs = Nothing 



else 



' the user is new and verified. 
' get the next sequence 
Dim IntNextSEfl 



Insert the record 



strSflLduery = "Select seq_table - nextval from dual" 
Set ObjRs = objOracleConn- Execute ( strSflLfiuery ) 
if objOracleConn . Errors - Count > D then 

Response -Write ( "Error in executing from next seq #") 
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For intloop = D to objOracleConn . Errors - Count - 1 

Response. Write C "Err #: " & objOracleConn - Errors (intloop) -Number ) 
Response. Write C "Err Msg: " a objOracleConn - Errors ( intloop ). Description 

Next 
end if 

While Not ObjRs-EOF 

IntNextSEfi = Ob jRs ("NEXTVAL") 
Ob jRs -floveNext 

Wend 

Ob jRs . close 

Set ObjRs = Nothing 

Dim StrChecked 

if StrAgentChecked = "on" then 
StrChecked = n Y n 

else 

StrChecked = "N" 
end if 



'now insert the record 

strStfLfiuery = "insert into dt_ezc_customer_inf o (CUST_INT_KEY-. CUST_ID 
CUST_EF1AIL-. INDIVIDUAL_OR_AGENT\ CUST_PHONE_NUM i IS_URL) n 



CUST.PIilDtf 



strS<2L(2uery 
strS<2Li2uery 
strS<3L(3uery 
strSflLfluery 
strSi2L(3uery 
strSflLfluery 



strSfiLfluery a 

strS£3l_£3uery & 

strStfLduery a 

strSflLduery a 

strSdLduery a 

strS(3L(3uery a 



Values (" & IntNextSEfi a 
a StrUserlD a " 
a StrPassword a "' t " 
& StrEMail a "'-, " 
a StrChecked 

& StrPhoneNumber & "'-, ' N ' ) " 



Set ObjRs = objOracleConn. Execute ( strS(2L(2uery ) 

if objOracleConn • Errors - Count > 0 then 

Response . Write C "Error in executing in inserting a new reocrd") 
Response. Write C "Err #: " & objOracleConn-Errors -Item- Number ) 
Response - Write ( "Err Hsg: " a objOracleConn . Errors • Item • Description ) 

end if 



' record got successfully inserted- Take them to the main menu 
' Response -Write ("kool") 
' an empty function 

Response. Write ( "<SCRIPT LANGUAGE= javascript>") 
"function w_onload() {") 

alert ( ""Account Successfully created"" )i") 



Response - Write 
Response -Write 
Response. Write 
Response - Write 
Response -Write 
Response . Write 
Response . Write 



( 
( 
( 

(" 



">") 

tin ^ 

"</SCRIPT>") 



end if 
end if 

else 

'an empty function 

Response-Write < "<SCRIPT LANGUAGE= javascript >" ) 

Response-Write < "") 

Response. Write < "function w_onload() -C") 

Response - Write < "") 

Response - Write < ">") 

Response-Write < "") 

Response. Write ( "</SCRIPT>") 



End If 
'/,> 

<HTML> 

<B0DY onload="w_onload()"> 
<P> 

<F0RM action=<5C=Request-ServerVariables("script_name")*> id=F0Rf11 method=post name=FORMl> 
<P> 

<P>anbspi</P><LABEL> 



-63- 



C: \unzipped\EZC\Pro ject\Pro ject_Local \Ha in\ Account \create_account . asp M 

<TABLE border=D eel lPadding=0 ce 1 1 Spacing^Q s tyle="HEIGHT : 37Mpx; WIDTH : MS^px" 
width= n 75* n > 

<TR> 
<TD> 

<P><F0NT color=green f ace=ArialxLABELXSTRONG>Create An User 
Account</STRONGX/LABELX/FONTX/Px/TDx/TRxFONT color=green face=Arial> 

<TR> 
<TD> 

<DIV align=left> 
<TABLE border=0 cellPadding=Q eel lSpacing=D id=TABLEl 
style= n HEIGHT: 12apxn WIDTH : 32^px" width= n 75*"> 

<TR> 
<TD> 

<P align=right><FONT face=Verdana size=l>User ID: 

</F0NT> </P></TD> 
<TDXF0NT face = Verdana size=l><INPUT id=textl maxLength=MQ 
name=UserID value= n <*=StrUserID*>"x/FONTx/TDx/TR> 
<TR> 
<TD> 

<P align=rightXFONT face=Verdana size=l>Password : </FONTx/Px/TD> 
<TDXF0NT face=Verdana size=l><INPUT id=passwordl name=UserPassword 
type=password value="<*=StrPassword*> n x/FvNTx/TDX/TR> 

<TR> 
<TD> 

<P align=right><FONT f ace=Verdana size=l>Conf irm Password : </FONTX/Px/TD> 
<TD><INPUT id=password2 name=conf irmpassword type=password value="<>:= : StrConf irmPassword 
*>"x/TDx/TR> 

<TR> 
<TD> 

<P align=right><FONT face=Verdana size=l>Primary Phone Number : </FONTx/Px/TD> 
<TD><INPUT id=phonenumber name=phonenumber type=input value="<5C=StrPhoneNumber/C> n x/TD></ 
TR> 

<TR> 
<TD> 

<P align=right><FONT face=Verdana size=l>E-f1ail :</PX/TD> 
<TD><INPUT id=text2 name=email value="<"/:=StrEMail*>"x/TDx/TR> 
<TR> 
<TD> 

<P align=right><FONT face=Verdana size=l>Agent : </Px/TD> 
<TD><INPUT id=checkbox3, name=Agentcheckbox 
type=checkbox checked=<^StrAgentChecked^»</TDx/TRX/TABLEx/DIVX/TDx/TRX/FONT> 
<TRX/TR> 
<TR> 
<TD> 

<PXF0NT color=green f ace=Arial><LABEL><STR0NOEnter Contact 

Inf ormation</STR0NSX/LA8ELx/F0NTX/P></TDX/TRxF0NT color=qreen face=Arial> 

<TR> 

<TD><F0NT face=Arial size=l><LABEL>This information is optional- It will be used 
to display on your ads so that your customers can contact you- You will be 
given a choice for which contact numbers you want to give in the 
ad. <PX/LABELX/F0NTX/TDX/TR> 

<TR> 
<TD> 

<TABLE border=0 cellPadding=0 cellSpacing=0 
style="HEIGHT: EHpxn WIDTH: 332px" width="75*"> 

<Z for IntContactListCount = 1 to IntContactListRecordCount 
Response -Write ("<TR>") 

Response. Write ("<TDxP align=right><FONT face=Verdana size=l> n a 
Str Con tactL is t (IntContactListCount) &":</FONTx/Px/TD> fT ) 

Response. Write ("<TDxP align=lef tXlNPUT id=f" & StrContactListKey 

(IntContactListCount) & n name=f n & StrContactListKey * 
(IntContactListCount) &"></Px/TD>") 

Response- Write ("</TR> n ) 

next 

X> 

</TABLEX/TDX/TR> 

<TR> 
<TD> 

<P><P align=center><INPUT id=submitl name=submitl type=submit value="Create Account"></^ 
PX/TDx/TRx/TABLEX/LABELX/FONT> 



-64- 



C : \unzipped\EZC\Pro jectXPro j ect_Local\f1ain\ Account \create_account - asp 5 

<P>&nbspi</P></FORn> 

</B0I>Y> 

</HTML> 



m 
m 

o 

o 

a 
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13 
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<*a Language=VBScript '/.> 

<html> 

<head> 

<meta NAME= "GENERATOR" Content="riicrosof t Visual Studio b-Q"> 
</head> 

<frameset SCR0LLING="N0" FRAHESPACING="1" FRAHEB0RDER= n 0" rows="aOX *"> 
<frame src="vehicle_ad - asp"> 

<frameset SCR0LLING="N0" FRAMESPACING= n l" FRAf1EB0RDER = "0" cols = "50* *"> 
<frame src="vehicle_ad_image - asp" target="image_response"> 
<frame src="vehicle„ad_imagedisplay • asp" name= n image_responsa"> 
</f rameset> 
</f rameset> 
<nof rames> 
<body> 
</body> 
</nof rames> 
</html> 



-66- 



C = \unzipped\EZC\Pro ject\Pro ject_Local\riain\Ads\vehicle\vehicle_ad«asp 1 

<"/<a Language=VBScript '/.> 

<html> 

<head> 

<meta NAflE= "GENERA TOR" Content="f1icrosof t Visual Studio t.-0"> 
<'/. 

Dim ob jOracleConn t strConnectString n ObjRs 
Dim strSflLfiuery 

Set ob jOracleConrv = Server . CreateObject ("ADODB - Connection" ) 
strConnectString = "DSN=EZC OracleTUID=ezcTpwd=sql" 
ob jOracl eConn - Open strConnectString 

'Session ( "ADV_DETAILS_INT_KEY") = "2" 
Session("CUST_INT_KEY") = "1" 

if Session ( "ADV_DETAILS_INT_KEY" ) = "" then Session ( "ADV_DETAILS_INT_KEY") = "NEW" 

'all variables used in this page 

Dim sle__title_var 

Dim sle„description_var 

Dim sle„url_var 

Dim sle_price_var 

Dim cbx_firm_var 

Dim sle_year_var 

Dim sle_mileage_var 

Dim lb_mileage_uom_var 

Dim sle_condition_var 

Dim lb_doors_var 

Dim lb„transmission_var 

Dim sle_ext_color_var 

Dim lb_f uel_type_var 

Dim sle_.engine_var 

Dim sle_city_var 

Dim sle_state_var 

Dim sle_zip_var 

Dim sle_int_color_var 



Dim lb_vehicle_make_vari lb_vehicle_model_var 



Response. Write ("<script ID=""clientEventHandlers JS2"" LANGUAGE=" n javascript"">" )& vbcrlf 
Response-Write("<! — ")a vbcrlf 
Response. Write("")& vbcrlf 

Response. iilrite ("function set_submit_value ( )")& vbcrlf 
Response. Write ("{") & vbcrlf 

Response. WriteC"/* set value to show that this is a true submit ")& vbcrlf 
Response . Write <" not just the refresh for model number ")& vbcrlf 
Response .liJrite<" retrieve the data ")& vbcrlf 
Response. Write (" */")& vbcrlf 

Response. Write<" document . f rm_create_vehicle_ad • submit_cl ick . value = 1 ")& vbcrlf 
Response. Write(">")& vbcrlf 
Response. Write("")& vbcrlf 
Response. Write("// — >")& vbcrlf 
Response -Write ("</script>") & vbcrlf 



If Request - Server Variables <"CONTENT_LENGTH") <> D Then 

sle_title_var = Request-Form ("sle_title") 
sle_description_var = Request-Form <"sle_description") 
sle_url_var = Request-Form ("sle_url") 
sle_price_var = Request-Form ("sle_price" ) 
cbx_firm_var = Request-Form ("cbx_firm") 
sle_year_var = Request-Form ("sle_year") 

lb_vehicle_make_var = Request-Form ("lb_vehicle_make") 
lb_vehicle_model_var = Request-Form ("lb_vehicle_model") 

sle_mileage_var = Request-Form ("sle_mileage") 
lb_mileage_uom_var = Request-Form ("lb_mileage_uom") 
sle_condition_var = Request-Form ("sle_condition") 
lb_doors_var = Request-Form ("lb_doors") 
lb_transmission_var = Request-Form ("lb^ransmission" ) 
sle_ext_color_var = Request-Form ("sle_ext_color") 
lb_f uel_type_var = Request-Form ( "lb_f uel_type") 
sle_engine_var = Request-Form ( "sle_engine") 
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sle_city_var = Request. Form ("sle_city") 
sle_state_var = Request-Form ( TT sle_state n ) 
sle„zip_var = Request-Form ("sle_zip") 
sle_int_color_var = Request-Form ("sle„int_color") 

1 see if the form was submitted by the button or by 

' change of vehicle make 

if Request . Form ( n submit_click n ) = 1 then 

' data has already been input 
' save to the database- 



r begin a transaction 
ob j Oracle Conn- Beg inTrans 

' if the ad is newi then insert 
if Session ( n ADV_DETAILS_NEW") = "Y" then 
Dim StrSfiLAdlnsert-. StrSfiLAdVehiclelnsert 



StrSfiLAdlnsert 
StrSfiLAdlnsert 
StrSfiLAdlnsert 
StrSfiLAdlnsert 
StrSfiLAdlnsert 
StrSfiLAdlnsert 
StrSfiLAdlnsert 
StrSfiLAdlnsert 
StrSfiLAdlnsert 
StrSfiLAdlnsert 
StrSfiLAdlnsert 
StrSfiLAdlnsert 
StrSfiLAdlnsert 
StrSfiLAdlnsert 
StrSfiLAdlnsert 
StrSfiLAdlnsert 
StrSfiLAdlnsert 
StrSfiLAdlnsert 
StrSfiLAdlnsert 
StrSfiLAdlnsert 



" INSERT INTO DT_EZC_.ADV_.DET AILS " 
StrSfiLAdlnsert & " ( ADV_DETAILS_INT_KEY-i 
StrSfiLAdlnsert a " OJST_INTJ<EY -, 
StrSfiLAdlnsert & " ADV_JYPE_INT„KEY i 



StrSfiLAdlnsert & 
StrSfiLAdlnsert & 
StrSfiLAdlnsert & 
StrSfiLAdlnsert & 
StrSfiLAdlnsert & 
StrSfiLAdlnsert & 
StrSfiLAdlnsert & 
StrSfiLAdlnsert & 
StrSfiLAdlnsert & 
StrSfiLAdlnsert & 
StrSfiLAdlnsert & 
StrSfiLAdlnsert & 
StrSfiLAdlnsert & 
StrSfiLAdlnsert & 
StrSfiLAdlnsert & 
StrSfiLAdlnsert & 



( "ADV_DETAILS_INT__KEY") a 



StrSfiLAdlnsert a B 
StrSfiLAdlnsert a " 
StrSfiLAdlnsert a " 
StrSfiLAdlnsert a " 
StrSfiLAdlnsert a " 
StrSfiLAdlnsert a n 
StrSfiLAdlnsert a " 
StrSfiLAdlnsert a " 
= "" then 
StrSfiLAdlnsert = StrSfiLAdlnsert 

else 

StrSfiLAdlnsert 
end if 

StrSfiLAdlnsert a 
StrSfiLAdlnsert a 
StrSfiLAdlnsert a 
StrSfiLAdlnsert a 
StrSfiLAdlnsert a 
StrSfiLAdlnsert a 
StrSfiLAdlnsert a 
StrSfiLAdlnsert a 



StrSfiLAdlnsert 
StrSfiLAdlnsert 
StrSfiLAdlnsert 
StrSfiLAdlnsert 
StrSfiLAdlnsert 
StrSfiLAdlnsert 
StrSfiLAdlnsert 
StrSfiLAdlnsert 
if sle_price_var 



StrSfiLAdlnsert 
StrSfiLAdlnsert 
StrSfiLAdlnsert 
StrSfiLAdlnsert 
StrSfiLAdlnsert 
StrSfiLAdlnsert 
StrSfiLAdlnsert 
StrSfiLAdlnsert 



ADV_.II>-. 
CITY-, 
STATE, 
ZIP 1 

ADV_TITLEi 
ADV_.TYPE_.DESC-. 
PRICE i 

FIRM_BESTOFFER t 

CONDITION-, 

COnilENTSi 

ADV_CONTACT_NAME-t " 

ADV„CONTACT_INFOi 

CREATE„DATETIMEi 

LASTUPDATE_DATETIf1E -> 

ADVJJRL ) " 

VALUES ( F " a Session 

a Session( T 'CUST_INT_KEY n ) a" 
'3'. " 

-. 

'" a sle_city„var a"', 

f " a sle_state„var a"'-, 

'" a sle_zip_var a"'-. 

'" a sle__title_var & n, i 

'" a sle„description_var a" 1 -, 



StrSfiLAdlnsert a 



a " null ■> " 

T " a sle_price_var a" -i 

& cbx_.firm_.var a"'-, 
a sle__condition_var a" r - 



sysdate-, " 
sysdate-i " 
,n a sle_.url_.var a"' 



'Response-_rite( StrSfiLAdlnsert) 

' now execute the insert - Ad 
objOracleConn- Execute (StrSfiLAdlnsert) 
if objOracleConn -Errors -Count > □ then 

Response. Write ( "Error in executing") 

For intloop = 0 to objOracleConn . Errors - Count - 1 

Response. Write ( "Err #: " a ob jOracleConn . Errors . Item- Number ) 
Response. Write ( "Err flsg: " a objOracleConn . Errors - Item - Description ) 

Next 
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end if 



StrSflLAdVehiclelnsert 
StrSflLAdVehiclelnsert 
StrSflLAdVehiclelnsert 
StrSflLAdVehiclelnsert 
StrSflLAdVehiclelnsert 
StrSflLAdVehiclelnsert 
StrSflLAdVehiclelnsert 
StrSflLAdVehiclelnsert 
StrSflLAdVehiclelnsert 
StrSflLAdVehiclelnsert 
StrSflLAdVehiclelnsert 
StrSflLAdVehiclelnsert 
StrSflLAdVehiclelnsert 
StrSflLAdVehiclelnsert 
StrSflLAdVehiclelnsert 
StrSflLAdVehiclelnsert 



"INSERT INTO DT_EZC_VEHICLE_DETAILS " 
StrSflLAdVehiclelnsert & "( VEHICLE_DETAILS_INT_KEY , 
StrSflLAdVehiclelnsert & "ADVJ>ETAILS_INT_KEYi 
StrSflLAdVehiclelnsert a "ADV_ID-. 
StrSflLAdVehiclelnsert & "MAKEi 
StrSflLAdVehiclelnsert a "MODEL. 
StrSflLAdVehiclelnsert a "YEAR-. 
StrSflLAdVehiclelnsert a "DOORS^ 
StrSflLAdVehiclelnsert a "TRANSMISSION , 
StrSflLAdVehiclelnsert a "ENGINE -> 
StrSflLAdVehiclelnsert a "FUEL_TYPE-. 
StrSflLAdVehiclelnsert a "EXT_C0L0Ri 
StrSflLAdVehiclelnsert a "INT_C0L0R 
StrSflLAdVehiclelnsert a "MILEAGE i 

UNIT_J)F_MEASURE ) n 
" a Session 



StrSflLAdVehiclelnsert a 
StrSflLAdVehiclelnsert a "VALUES ( 
( "ADV_DETAILS_INT__KEY") a" 1 -. 
StrSflLAdVehiclelnsert = StrSflLAdVehiclelnsert a "'"a Session 

( "ADV_DETAILS_INT_KEY") a"'-. n 
StrSflLAdVehiclelnsert = StrSflLAdVehiclelnsert a 
StrSflLAdVehiclelnsert 

StrSflLAdVehiclelnsert = StrSflLAdVehiclelnsert a 
if sle_year_var = "" then 

StrSflLAdVehiclelnsert = StrSflLAdVehiclelnsert a 
else 

StrSflLAdVehiclelnsert = StrSflLAdVehiclelnsert a sle_year_var a" 
end if 

StrSflLAdVehiclelnsert a "'"a lb_doors_var a" r 
StrSflLAdVehiclelnsert a 



StrSflLAdVehiclelnsert a "'"a lb„vehicle_make_var a"'-. 

'"a lb_vehicle_model_var a"' 

null i 



StrSflLAdVehiclelnsert 
StrSflLAdVehiclelnsert 
StrSflLAdVehiclelnsert 
StrSflLAdVehiclelnsert 
StrSflLAdVehiclelnsert 
StrSflLAdVehiclelnsert 
if sle_mileage_var 



a lb_transmission_var a" r 
StrSflLAdVehiclelnsert a " ,n a sle_engine_var a"'-. " 
StrSflLAdVehiclelnsert a n, "a lb_f uel_type_var a"'-. 
StrSflLAdVehiclelnsert a "'"a sle_ext_color_var a"'i 
StrSflLAdVehiclelnsert a n, "a sle_int_color_var a"'-, 
then 

null n 



StrSflLAdVehiclelnsert a sle_mileage_var a 



StrSflLAdVehiclelnsert = StrSflLAdVehiclelnsert a 

else 

StrSflLAdVehiclelnsert 
end if 

StrSflLAdVehiclelnsert = StrSflLAdVehiclelnsert a "'" a lb_mileage_uom_var 
a "' ) " 



1 Response. Write ( StrSflLAdVehiclelnsert) 



' now execute the insert - Ad Vehicle 

ob jOracleConn. Execute (StrSflLAdVehiclelnsert) 

if objOracleConn-Errors -Count > 0 then 

Response. Write ( "Error in executing") 

For intloop = 0 to ob jOracleConn* Errors . Count - 1 

Response -Write ( "Err #: " a ob jOracleConn . Errors . Item - Number ) 
Response-Write ( "Err Msg: " & ob jOracleConn - Errors - Item - Description ) 

Next 
end if 

'now determine the options and insert the records 
Dim StrSflLAdOptionsi ls_next_key 
Dim li„CountOption 

' go thru all options and update 

' get list of options and see if there is a comparable 
f checkbox. If there is then save the data 
for each item in Request-Form 

for li_CountOption = 1 to 40 

if item = "Ocheckbox"ali_CountOption then 

' name for a checkbox found- Get its value 
if Request -Form(item) = "on" then 

Set ObjRs = ob jOracleConn-Execute ("select seq_table - nextval from/ 
dual ") 

if ob jOracleConn - Errors - Count > 0 then 
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Response. Write ( "Error in executing") 
For intloop = 0 to objOracleConn - Errors - Count - 1 

Response. Write ( "Err #: " a objOracleConn • Errors - Item . 
Number ) 

Response-Write ( "Err Msg: " a objOracleConn - Errors - Item - 
Description ) 

Next 
end if 

if not ObjRS-EOF then 

'Response- Urite("new value " & Ob jRS ("nextval") ) 

ls„next_key = Ob jRS ("nextval" ) 
end if 

1 insert the statement 

StrSflLAdOptions = " INSERT INTO DT__EZC_ADV_AND_OPTIONS " 
StrSdLAdOptions = StrSflLAdOptions a " ( ADV_AND_OPTIONS_INT_KEY 

TT 

StrS<2LAd0ptions = StrSdLAdOptions 8 "ADV_DETAILS_INT — KEY i 

StrSfiLAdOptions = StrSflLAdOptions & "ADV_OPTIONS„INT_KEY ) " 

StrSGLAdOptions = StrSflLAdOptions 8 "VALUES ( f " & ls_next_key *> 

a " f i " 

StrS(2LAd0ptions = StrSfiLAdOptions a "'" a Session * 

C "ADV__DETAILS_INT__KEY")a " ' , " 

StrSfiLAdOptions = StrSflLAdOptions a "'" a li_CountOption a "') " 

' Response -write (StrStfL Adoptions) 

' now execute the insert - Options 
objOracleConn -Execute < StrSflLAdOptions ) 
if objOracleConn -Errors -Count > 0 then 

Response-Write < "Error in executing") 

For intloop = 0 to objOracleConn-Errors -Count - 1 

Response. Write ( "Err #: " a objOracleConn . Errors - Item - 
Number ) 

Response. Write ( "Err Msg: " a objOracleConn - Errors . Item . \t 
Description ) 

Next 
end if 

end if 
end if 

next 

next 

Dim StrSflLContactOptions 

' go thru all options and update 

' get list of options and see if there is a comparable 
1 checkbox- If there is then save the data 
for each item in Request-Form 

for li_CountOption = 1 to 40 

if item = "Ocheckbox"ali_CountOption then 

' name for a checkbox found- Get its value 
if Request. Form<item) = "on" then 

' insert the statement 

StrS(2LContactOptions = " INSERT INTO DT_EZC_ADV_AND_OPTIONS " 
StrSflLContactOptions = StrSflLContactOptions a " ( * 
ADV_AND_OPTIONS_INT_KEYi 

StrS<2LContactOptions = StrSfiLContactOptions / 

& r, ADV_DETAILS_INT_KEY i 

StrS(2LContactOptions = StrS(3LContactOptions ^ 

& "ADV_OPTIONS_INT_KEY ) " t 
StrSflLContactOptions = StrSflLContactOptions a "VALUES ( f Ti 
StrS(2LContactOptions = StrSdLContactOptions a nf " a Session ( * 

ADV_DETAILS_INT_KEY) a " " 

StrSfiLContactOptions = StrSflLContactOptions a "'" a * 

li_CountOption a "') " 
end if 
end if 

next yQ_ 
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next 



' noe errors then commit 
if ob jOracleConn . Errors ■ Count = □ then 
obj Oracle Conn ■ CommitTrans 

else 

ob jOracleConn.RollbackTrans 
end if 

else ' we were editing the recordi update the record 
' with the changes 

end if 
end if 



' data is coming from the database - or it is a new record- 
if Session ( "ADV_DETAILS„INT_KEY") = "NEW" then 
Session ( "ADV_DETAILS_NEW" ) = "Y" 

'get the next avalialbe key for this ad that will be saved 

Set ObjRs = objOracleConn-Execute ("select seq_table . nextval from dual ) 

if ob jOracleConn-Errors-Count > 0 then 

Response. Write ( "Error in executing") 

For intloop = 0 to ob jOracleConn . Errors -Count - 1 

Response. Write < "Err #: " & ob jOracleConn -Errors - Item- Number ) 
Response. Write ( "Err Hsg: " & ob jOracleConn . Errors - Item - Description ) 

Next 
end if 

if not ObjRS-EOF then 

'Response. Write("new value " & Ob jRS ("nextval") ) 

Session ( "ADV JETAILSJNTJCEY" ) = Ob jRS ("nextval" ) 
end if 

else 

' retrieve this add from the database 
end if 



''Response- Write ("error count: " & ob jOracleConn -Errors(O) -Description &"<P>") 

; 9 t e ^Ku e rj S = " f r E fE?"l)Sze^v!^5i0PuS N "^V_AN J >_< > PTI0N S _INT_KEY , CT.EZC.ADV.OPTIONS . , 

ADV OPTIONS„INT_KEYi " 

" CT_EZC_ADV_OPTIONS-OPTION„DESC-» 

nvKDT EZC ADV AND OPTIONS - ADV_OPTIONS„INT_KEY i ' N ' ) * 



strSfiLfluery - strS<2L(2uery & 
strSGLfluery = strS2L<2uery & 

CHECKED_VALUE " 
strSflLfiuery = strSfiLduery & 
strS(3L£2uery = strS(3L<3uery & 
strS<2L<2uery = strS<2L<2uery & 



FROM CT_EZC_ADV_OPTIONS , DT__EZC__ADV_AND„0PTIONS 
WHERE CT__EZC„ADV_OPTIONS.ADV_TYPE_INT_KEY » '3' " 

_ 7 _ and CT_EZC_ADV_OPTIONS.ADV_OPTIONS_INT_KEY = 

DT" fc EZC J ADv"AND_OPTI0NS.ADV_OPTIONS_INT_KEY (+) " 
strS(2L(2uer7 = strSflLfiuery & " and DT_EZC_ADV — AND_ OPTIONS • ADV_DETAILS_INT_KEY ( + ) 
Session ( "ADV„DETAILS„INT_KEY") &"'" 



'Response- Write (strSfiL(2uery«- n <P>") 
' now execute the query 

Set ObjRs = objOracleConn-Execute (strS<2L<2uery ) 
if ob jOracleConn- Errors -Count > Q then 

Response. Write ( "Error in executing") 

For intloop = 0 to ob jOracleConn. Errors. Count - 1 

Response. Write ( "Err #: " & ob jOracleConn. Errors. Item-Number ) 
Response. Write ( "Err Ilsg: " & ob jOracleConn - Errors ■ Item . Description ) 

Next 
end if 



Dim IntCount 
IntCount = Q 

Dim StrHTMLVehicleOptionsi StrChkValue 

StrHTflLVehicleOptions = "<TABLE rowspan=10>" 
dim StrCHKName 
While Not ObjRs - EOF 
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StrChkValue = nn 
IntCount = IntCount + 1 

f if oddi then begin a new row 

if Round(IntCount/2Tl) - round (IntCount/5-iD) =Q . 5 then 

StrHTflLVehicleOptions = StrHTflLVehicleOptions & "<TR>" 
end if 

' if this is the first time the form is diplayedn values are from db or form 
If Request. ServerVariables ( n CONTENT_LENGTH" ) <> 0 Then 

'values are from the form 

if Request-Form ( "Ocheckbox"& Ob jRs <"ADV_OPTIONS_INT_KEY" ) ) = "on" then 
StrChkValue = "checked" 

else 

StrChkValue = "" 
end if 

'StrChkValue = Request - Form ("OcheckboxS") 
'StrCHKName = "checkbox"&Ob jRs <"ADV_OPTIONS_INT_KEY") 

•StrChkValue = Response - Form ("Ocheckbox (Ob jRs <"ADV_OPTIONS_INTJ<EY"> ) ) 

else 

r value is coming from the database 
if Ob jRs ( n CHECKED_VALUE") = "N" then 
StrChkValue = "" 

else 

StrChkValue = "checked" 
end if 
end if 



StrHTriLVehicleOptions = StrHTflLVehicleOptions & n <TD><INPUT id=Ocheckbox" aObjRs * 
<"ADV_OPTIONS_INT_JCEY")&" name=Ocheckbox" gOb jRs<"ADV_OPTIONS„INT_KEY")& " type= 
checkbox " & StrChkValue & "x/TDXTDXFONT face=Verdana size=l>" &0bjRs x 
("0PTI0N_DESC") & "</TD>" 



'if even-t then end the row 

if Round<IntCount/2tl) - round (IntCount/STO)=Q then 

StrHTflLVehicleOptions = StrHTMLVehicleOptions & "</TR>" 
end if 

ObjRs-lloveNext 

blend 

StrHTflLVehicleOptions = StrHTflLVehicleOptions &"</TDX/TRX/TABLE>" 

Ob jRs -close 

Set ObjRs = Nothing 

'get list of vehicle makes 
Dim strV_flakeS6L(2uery 
Dim strVJIakeHTflL 



strVJIakeSflLfluery = " SELECT EZC « CT_EZC_VEHICLE_flAKE • VEHICLE_MAKE„INT_KEY tEZC - 

CT_EZC_VEHICLE_f1AKE - VEHICLE_flAKEiEZC - CT_EZC_VEHICLE_flAKE - ACTIVE FROM EZC- \t 
CT_EZC_VEHICLEJ1AKE WHERE EZC - CT_EZC„ VEHICLE JAKE - ACTIVE = 'Y' ORDER BY EZC- 
CT_EZC_VEHICLE_f1AKE - VEHICLE_flAKE ASC " 

' Response. dlrite (strS(3L(2uery+"<P>") 



' now execute the query 

Set ObjRs = ob jOracleConn - Execute ( strV_flakeS<2L<Juery ) 
if ob jOracleConn -Errors - Count > 0 then 
Response-Write < "Error in executing") 
For intloop = 0 to ob jOracleConn-Errors -Count - 1 

Response - Write ( "Err " & ob jOracleConn • Errors - Item . Number ) 
Response. Write ( "Err Msg-' " & ob jOracleConn -Errors. Item-Description ) 

Next 
end if 

' build the data for the vehicle makes 
IntContactListCount = 0 
While Not ObjRs - EOF 
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strV_f1akeHTt1L = strVJIakeHTHL a "<0PTI0N " 

if Request-Form ("lb_vehicle_make") = Ob jRs ("VEHICLE_riAKE_INTJ<EY") then 

strV_nakeHTHL = strV_HakeHTf1L & " selected " 
end if 

strV_MakeHTML = strV_f1akeHTf1L & "value-" & Ob jRs ("VEHICLE_MAKE_INT_KEY" ) &" >" a ObjRs _* 
("VEHICLE_f1AKE") a "</OPTION>" 

ObjRs • floveNext 

Wend 

'add an empty option 

strV_f1akeHTf1L = "<OPTI0N value=Q> </0PTI0N>" a strVJakeHTfIL 

strV_f1akeHTML = "<SELECT id=lb_vehicle_make name=lb_vehicle_make size=l style=""F0NT-FAMILY : i_* 
monospace; FONT-SIZE: x-small"" LANGUAGE-"" javascript"" onchange-""f orm . submit () ""> "a _* 
strVJIakeHTML & " </SELECT> " 

Ob jRs. close 

Set ObjRs = Nothing 

' now get the Vehicle models 

Dim strV_ModelS_L(2ueryi ObjRsflodel 

strV_f1odelS(2L(2uery = " SELECT EZC ■ CT__EZC_VEHICLE_f10DEL • VEHICLE_f10DEL_INT_KEY i EZC** 
. CT_EZC_VEHICLE_110DEL - VEHICLE_f1AKE„.INT_KEYi EZC - CT_EZC_VEHICLE„riODEL . _* 

VEHICLE_f10DELi EZC - CT_EZC_.VEHICLE_.no DEL -ACTIVE FROM EZC - k* 

CT_EZC_VEHICLE_riODEL WHERE ( EZC . CT_EZC_VEHICLE_riODEL - ACTIVE = 'Y r ) and EZC _* 
CT_EZC_VEHICLE__MODEL . VEHICLE„MAKE_INT_KEY = '" 

if Request. Form ("lb__vehicle_make" ) = "" then 

strV_J1odelS(2L<2uery = strV_riodelS<aL(2uery & "l f ORDER BY EZC - CT_EZC„VEHICLE_NODEL - _* 
VEHICLE_J1AKE_INT_.KEY i EZC - CT_EZC„VEHICLEJ10DEL . VEHICLE _J10DEL ASC " 

else 

strVJIodelSSLfiuery = strVJIodelSSLfluery & Request . Form ( n lb_vehicle_make n ) & nf ORDER BY _* 
EZC - CT_EZC„VEHICLE_f10DEL - VEHICLE_t1AKE_INT_KEY , EZC - CT_EZC_VEHICLE__MODEL . VEHICLE_M0DEL _* 
ASC " 

end if 



'Response. Write < strV_J1akeS<2L(2uery+"<P>" ) 
' Response. Write (strV_f1odelSflL_uery) 
' now execute the query 

Set ObjRsflodel = objOracleConn - Execute ( strV_f1odelS(3L_uery) 

if objOracleConn -Errors . Count > Q then 

Response -Write C "Error in executing") 

For intloop = 0 to ob jOracleConn. Errors-Count - 1 

Response -Write ( "Err #: " & objOracleConn . Errors .Item • Number ) 
Response. Write ( "Err flsg: " a objOracleConn . Errors . Item -Description ) 

Next 
end if 

Dim StrV_f1odelSelectHTML 

' Response -Write (Ob jRsHodel . recordcount ) 

1 Response - Write (strV_J1odelS(2L<2uery ) 

While Not ObjRsflodel - EOF 

StrVJIodelSelectHTflL = StrVJIodelSelectHTML a "<0PTI0N " 

if Request. Form <"lb_vehicle_model n > = ObjRsflodel ("VEHICLE_MODEL_.INT_.KEY") then 

StrV_riodelSelectHTnL = StrV_nodelSelectHTnL a n selected " 
end if 

StrV_f1odelSelectHTf1L = StrV_riodelSelectHTr!L a "value-" & ObjRsflodel _* 
("VEHICLE_f10DEL_INT_KEY") a" >" a Ob jRsflodel ("VEHICLE_f10DEL") a "</0PTI0N>" 

Ob jRsflodel - Move Next 

Wend 

' add an empty option 

StrVJIodelSelectHTflL = "<0PTI0N value = Q> </0PTI0N>" a StrV_f1odelSelectHTML 
StrV_nodelSelectHTriL = "<SELECT id = lb_vehi cle_model name = lb„vehicle_model size = l width=13t,px 
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style=""FO NT-FA HILY: monospaced FONT-SIZE: x-small nTT > " a StrV_ttodelSelectHTriL a 
SELECT> n 

Ob jRsflodel - close 

Set ObjRsflodel = Nothing 

'get all the contact information for this user 
'account id is in session variable (accountid) 



</ 



Dim strCust_ContactS(2L(2uery 



' temp 

strCust_ContactSf2L£2uery = strCust. 
strCust_ContactSfll_(2uery = strCust_ 
strCust_ContactS(2L(2uery = strCust. 
strCust_ContactS(2L<2uery = strCust, 
strCust_ContactS(2Lfiuery = strCust. 
strCust_ContactS<3L(2uery = strCust. 

( "ADV_DETAILS_INT_KEY" ) a" ' 
strCust„ContactS(2Lfiuery = strCust. 

'new ) adv_contactj>etails_ 

strCust_ContactSf2L(2uery = strCust_ 



ContactS(2L(3uery a 

ContactSflLduery & 

ContactS(3L(2uery & 

.ContactS<2L(2uery & 

.ContactSflLfluery & 

ContactStfLfluery a 
) ADV_DETAILS_INT. 

ContactS_L(2uery a 
.INTJCEY " 

ContactS(2L(2uery a 



strCust_ContactS(2L(3uery = strCust_ContactS(2L(auery a 
strCust_ContactS(2L(3uery = strCust_ContactS(2L<3uery & 
strCust_ContactSt2L(2uery = strCust_ContactS£2Lfluery & 

.cust_contact_int_key) and " 
strCust_ContactS(2L(2uery = strCust_ContactS_L(2uery a 

CUST_CONTACT_TYPE_INT — KEY ) and" 
strCust_ContactS_L<2uery = strCust_ContactS(2Lfluery a 

( n CUST_INT_KEY")a" r )" 



" SELECT CT.CUST_CONTACT_CODE-, 
"CT-CUST_CONTACT_DESCRIPTIONn 
"CT . CUST__C0NT ACT_T YPE_INT JCE Y -> 
"CCCUST.CONTACTJATA^ 
"CC.CUST_CONTACT_INT_.KEY-. 

n nvl(CD.A]>V_DETAILS_INT_KEYi '" a Sessions 
KEY-i " 

"nvl< CD . ADV_CONTACT_DETAILS_JNT_KEY 

"FROM CT_EZC_CUST0f1ER_C0NTACT_TYPE CT 

"DT_EZC_ADV_CONTACT„DETAILS CD-. 

"DT_EZC_CUST0f1ER_C0NTACT CC " 

"WHERE ( CD.cust_contact_int_key ( + ) = CC* 

"< CC-CUST_C0NTACT_TYPE_INT_KEY = CT- 

"( CC-CUST_INT_KEY = '" a Session Z 



' now execute the query 

Set ObjRs = ob jOracleConn - Execute CstrCust_ContactS(2L(2uery ) 
if ob jOracleConn-Errors • Count > Q then 
Response -Write ( "Error in executing") 
For intloop = 0 to objOracleConn-Errors. Count - 1 

Response. Write ( "Err #: " a objOracleConn - Errors . Item-Number ) 
Response-Write ( "Err flsg: " a objOracleConn - Errors - Item - Description ) 

Next 
end if 



IntCount = 0 

Dim StrHTf1LCust_Contact0ptions 

StrHTMLCust_ContactOptions = "<TABLE bgColor=""yellow"" border= nn 0" n cellPadding=""l"" X 
cellSpacing=""l"" width=" n 100*"">" 



While Not ObjRs - EOF 



IntCount = IntCount + 1 



'if oddi then begin a new row 

if Round(IntCount/2il) - round (IntCount/2-.O) =0 -S then 

StrHTHLCust_ContactOptions = StrHTMLCust_ContactOptions a "<TR>" 
end if 

f if this is the first time the form is diplayedi values are from db or form 
If Request. ServerVar iables ( "CONTENT_LENGTH" ) <> 0 Then 

'values are from the form 

if Request. Form <"Ocheckbox"a Ob jRs ("ADV_OPTIONS_INT_KEY" ) ) = "on" then 
StrChkValue = "checked" 

else 

StrChkValue = "" 
end if 

'StrChkValue = Request. Form ("OcheckboxS") 
'StrCHKName = "checkbox"aOb jRs ( "ADV_OPTIONS_INT_KEY" ) 

'StrChkValue = Response -Form ("Ocheckbox (Ob jRs ("ADV_OPTIONS_INT_KEY") ) ) 

else 
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r value is coming from the database 
if ObjRs<"CHECKED_VALUE") = "N" then 
StrChkValue = "" 

else 

StrChkValue = "checked" 
end if 
end if 

StrHTHLCust.ContactOptions = StrHTMLCust_ContactOptions a "<TDXINPUT id=checkbox" aObjRstf 
("CUST_CONTACT_INT_KEY")a" name=checkbox" aOb jRs <"CUST_CONTACT_INT_KEY" ) a " type= * 
Checkboxx/TDXTDXFONT face=Verdana si2e=l>" aObjRs ^ 
("CUST_CONTACT_DESCRIPTI0N"> a " (" & Ob jRs < "CUST_CONTACT_DATA" ) a ") </TD>" 

'if eveni then end the row 

if RoundCIntCount/2-.l) - round (In t Count /E-iD) -Q then 

StrHTf1LCust_Contact0ptions = StrHTf1LCust_Contact0ptions a "</TR>" 

end if 

Ob jRs -MoveNext 

li) end 

StrHTriLCust_ContactOptions = StrHTriLCust_ContactOptions a"</TD></TR></TABLE> 

Ob jRs -close 

Set ObjRs = Nothing 

X> 

</head> 

<fo?m > name="frm create_vehicle_ad" id="f rm„create_vehicle_ad" method="POST" xfont size="l"> 
<TABLE border=oTcellPadding=l eel lSpacing = l width="lQOX" sty le="HEIGHT : Wlpx* WIDTH: b?Mpx"> 

<TB0DY> 

<TR> 

<TD align=middle> 

<TABLE align=center border=Q cellPadding=l eel ISpacing-l 
style="HEIGHT: 333pxn WIDTH: 5?7px" width="lDOV."> 
<TB0DY> 
<TR> 

<TDX/TD> 

<TD align-middle colSpan=M> 

<P align=le ft XFONT color=green face=Verdana size=£>Choose the 
contact methods to be used in the Ad</FONTx/PX/TDx/TR> 
<TR><TD align=middle><P align=lef txFONT color=green face=Verdana size=l>Contact 
riethods:</TD> 
<TD align-middle colSpan=M> 

<TABLE align=center bgColor=yellow border=0 cellPadding=l 
cellSpacing=l width="10Q*"> 
</TD> 

<TR> 

<TD align=rniddlex* =StrHTf1LCust„Contact0ptions 5ix/TI»</TR></TABLE> 

<TR> 

<TD align=middle> 

<P align=rightXFONT face=Verdana size=l>Title : </FONTx/PX/TD> 
<TD align=middle colSpan=3> 

<P align=lef txFONT face=Verdana size=l><INPUT id=sle_title name=sle_title value/ 

="<* = sle„title_var V.>" 
style="F0NT-FAf1ILY: serifs FONT-SIZE: x-smalU HEIGHT : EEpxn WIDTH: MH5px">anbsp 
•,</F0NTX/P></TD> 
<TD align=middleX/TD> 
<TD align=middleX/TD> 
<TD align=middleX/TDX/TR> 
<TR> 

<TD align=middle> 

<P align=right><FONT face=Verdana size=l>Description : </FONTx/PX/TD> 
<TD align=middle colSpan=3> 

<P align=left><TEXTAREA id=sle_descr iption name=sle_description style 

="FONT-FAf1ILY: serifs FONT-SIZE : x-smalU HEIGHT : 3flpx^ WIDTH : 4M7px"> <X = / 
sle_description_var *x/TEXTAREAX/PX/TD> 
<TD align=middle></TD> 
<TD align=middle></TD> 
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<TD align=middleX/TDX/TR> 

<X IF Session("INDIVIDUAL n ) <> "I" THEN ' only for agent*/.> 
<TR> 

<TD align-middle> 

<P align=right><FONT face=Verdana size=l>Link bleb Page :</FONTX/Px/TD> 
<TD align=middle colSpan=3> 

<P align=lef txiNPUT id=sle_url name=sle_url value= n <* = sle_url_var 
style =fT F0 NT-FAMILY: serifs FONT-SIZE: x-smalls HEIGHT: ElpxS WIDTH: HM7px"x/PX/ ^ 
TD> 

<T3) align=middleX/TD> 
<TD align=middleX/T]» 
<T3) align=middleX/TDX/TR> 
<X END IF X> 
<TR> 

<TD align=middle> 

<P align=right><FONT face=Verdana size=l>Vehicle flake : </F0NT></P></TD> 
<TD align=middle> 

<P align=lef t><Z =strV_ttakeHTML *x/PX/TD> 
<TD align=middle> 

<P align=right><FONT face=Verdana size=l>Model : </FONTx/PX/TD> 
<TD align=middle> 

<P align=leftx* =StrV_ModelSelectHTnL *x/PX/TD> 
<TD align=middle> 

<TABLE bgColor=yellow border=0 cellPadding=3. cellSpacing=l 

width= w 10Q35 w > 

</TABLE></TDX/TR> 

<TR> 

<TD align=middle> 

<P align=right><FONT face=Verdana size=l>Price: </FONTx/PX/TD> 
<TD align=middle> . 

<P align=left><FONT face=Verdana size=lxlNPUT id=sle_price name=sle_pnce value* 
="<v. = sle_price_var 'K> n 

style="FONT-FAniLY: serifs FONT-SIZE: x-smal 1"XINPUT id=checkboxl 

name=cbx_f irm type=checkbox>&nbspSFirm</FONTx/Px/TD> 
<TD align=middle> 

<DIV align=left>&nbspi</DIVX/TD> 
<TD align=middle><FONT face=Verdana size=l></FONT></TD> 
<TD align=middle></TDX/TR> 
<TR> 

<TD align=middle> 

<P align=right><FONT face=Verdana size=l>Year :</FONTX/PX/TD> 
<TD align=middle> 

<P align=leftxFONT face=Verdana size=l><INPUT id=sle„year name=sle_year value 
="<*/. = sle_year_var 

style="FONT-FAMILY : sans-serifs FONT-SIZE : x-smalls HEIGHT : E2pxS fcilDTH: * 
133px"X/F0NT></P></TD> 
<TD align=middle> 

<P align=right><FONT face=Verdana size=l>Fuel Type : </F0NT></P></TD> 
<TD align=middle> 

<P align=left><SELECT id=lb_f uel_type name=lb_f uel_type 

style="FONT-FAMILY: serifs FONT-SIZE: x-smallS HEIGHT: 21pxS WIDTH: 135px n > 
<OPTI0N selectedX/OPTIONX/SELECTX/P></TD> 
<TD align=middle></TD></TR> 
<TR> 

<TD align=middle> 

<P align=right><FONT face=Verdana size=l>t1ileage : </FONTX/PX/TD> 
<TD align=middle> 

<P align=left><FONT face=Verdana size=l><INPUT id=sle_mileage name=sle_mileage 

value="<>£ = sle_mileage„var 
style =r, F0NT-FAf1ILY : serif; FONT-SIZE: x-small n XSELECT id=lb_mileage_uora 
name=lb_mileage_uom size=X 

style = "F0NT-FAt1ILY: serifs FONT-SIZE: x-smallS HEIGHT: 2EpxS WIDTH : 5^px n > 
<OPTION selected value=f1>niles</0PTI0N><0PTI0N 

value=Kf1>KM</OPTIONx/SELECTX/FONTX/Px/TD> 
<TD align=middle> 

<P align=right><FONT face=Verdana size=l>Engine : </F0NT></PX/TD> 
<TD align=middle> 

<P align=lef txFONT face = Verdana size = l><INPUT id=sle_engine 

name=sle_engine value= n <>: = sle_engine_var style="FO NT-FAMILY : serifs \i 

FONT-SIZE = x-smal l"x/FONTx/PX/TD> 
<TD align=middle></TDX/TR> 
<TR> 
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<TD align=middle> 

<P align=rightXFONT face=Verdana size=l>Condi tion : </FONTX/PX/TD> 
<TD align=middle> 

<P align=leftXFONT face=Verdana size=lxlNPUT id=sle_condition name= 
sle_condition value="<"/. = sle_condition_var *> n 

style="FONT-FAMILY : serifs FONT-SIZE: x-small n X/FONTx/PX/TD> 
<TD align=middle> 

<P align=right><FONT face=Verdana size=l>City : </F0NT></P></TI» 
<TD align=middle> 

<P align=lef tXFONT face=Verdana size=l><INPUT id=sle_city 

name=sle_city value="<* = sle_city__var sty le="FONT-FAflILY : serifs FONT-SIZE * 

: x-small"x/FONTX/PX/TD> 
<TD align=middlex/TDx/TR> 
<TR> 

<TD align=middle> 

<P align=right><FONT face=Verdana size=l>Doors : </F0NT></P></TD> 
<TD align=middle> 

<P align=lef txSELECT id=lb_doors name=lb_doors size=l 

style="FONT-FAP!ILY : serifs FONT-SIZE: x-small; HEIGHT : Elpxn WIDTH: 13bpx n > 
<OPTION selected value=2>E Doors</0PTI0N><0PTI0N value=3>3 
Doors</0PTI0N><0PTI0N value=H>M Doors</OPTIONxOPTION value=5>5 
Doors</OPTIONx/SELECTX/Px/TD> 
<TD al ign=middle> 

<P align=right><FONT face=Verdana size=l>State : </FONTX/Px/TD> 
<TD align=middle> 

<P align = leftXFONT face=Verdana size=lXINPUT id=sle_state 

name=sle_state value* n <* = sle_state_var style="FONT-FAHILY : serifs FONT-SIZE* 
: x-sraall"X/FONTX/PX/TD> 
<TD align=middleX/TDX/TR> 
<TR> 

<TD align=middle> 

<P align=right><FONT face=Verdana size=l>Transmission: </FONT></P></TD> 
<TD align=middle> 

<P align=lef txSELECT id=lb_transmission name=lb_transmission 

style= n FONT-FAHILY : serifs FONT-SIZE : x-smalli HEIGHT: Elpxn WIDTH : 13bpx"> 
<0PTI0N selectedx/OPTIONX/SELECTX/P></TD> 
<TD align=middle> 

<P align=right><FONT face=Verdana size=l>Zip : </FONTX/PX/TD> 
<TD align=middle> 

<P align=lef tXFONT face=Verdana size=l><INPUT id=sle_zip 

name=sle_zip value="<"/. = sle__zip_var style= n F0NT-FAf1ILY: serifs FONT-SIZE : * 

x-small Tt x/FONT></P></TD> 
<TD align=middleX/TDX/TR> 
<TR> 

<TD al ign=middle> 

<P align=right><FONT face=Verdana size=l>Ext- Color : </F0NT></P></TD> 
<TD align=middle> 

<P align=left><FONT face=Verdana size=lxlNPUT id=sle_ext„color name= 

sle_ext_color value= n <* = sle_ext_color„var 
style= n FONT-FAniLY : serifn FONT-SIZE: x-small"X/FONTx/PX/TD> 
<TD align=middle> 

<P align=right><FONT face=Verdana size=l>Int. Color : </FONTX/Px/TD> 
<TD align=middle> 

<P align=lef tXFONT face=Verdana size=l><INPUT id=sle_int_color 
name=sle_int_color value="<^ = sle_int„color„var style="FONT-FAf1ILY: serifs 

FONT-SIZE: x-small"X/FONTX/P></TD> 
<TD align=middle></TDX/TR> 
<TRXTD></TD> 

<TD align=middle colSpan=M> 

<P align=left><INPUT id=submitl name=submitl onClick== n set_submit_value () "style 

= "HEIGHT : EMpx'n UIDTH : 'Hpx" type=submit value=Save>&nbspi&nbsp^&nbsp^<INPUT 
id=resetl name=resetl style="HEIGHT : 2Mpx^ LEFT: iDOpx; TOP: lpx^ WIDTH: * 
^7px" type=reset value=Reset>&nbspT&nbspT&nbspi<INPUT id=buttonl name=buttonl 
style="HEIGHT: EMpx^ WIDTH : HDpx" type=button value="Upload Image"x/Px/TD> 
<TD align=middle></TD> 
<TD align=middle></TD> 
<TD align=middle></TDX/TR> 
<P> 
<P> 
<P> 

<P align = leftx/PX/TBODYX/TABLE></TD> 
<TD align=middle bgColor=yel low vAlign=top 
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nbspi&nbspT&nbspT&nbspn&nbspT&nbspianbspT&nbspn 

<TABLE bgColor=yellow border=0 cellPadding=l cellSpacing=l width= n 10Q* n > 

</TABLE><* =StrHTriLVehicleOptions *></TD></TR></TBOI>Y></TABLE>&nbsp \ 

<input type="hidden" value= n O"n name="submit_click"> 

</form></F0NT> 

</body> 

</html> 
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<*a Language=V8Script X> 

<html> 

<head> 

<meta NAME="GENERATOR" Content="Microsof t Visual Studio b-0"> 

</head> 

<body> 

< ! — METADATA TYPE="DesignerContro 1 " startspan 

<object classid = "clsid:lrSb])B7G-^aHl-ll]>l-B7B7-DQC0^FI>^ ^ Sb^F ^ ></object> 
— > 

<! — Layout Header Begin — > 

< ! — METADATA TYPE="DesignerControl" endspan«> 
<table border="0" width="10Q*>: n height= n 100*"> 
<tr> 

<td colspan="2" height-"fiQ n al ign="center"> 
< ! — METADATA TYPE="Designer Control" startspan 

<0BJECT classid="clsid:7DS3 e lbP5-3H71-llDl-Bb E i3-aDl 3 m7C^A6aH n ><PARAM N AME="Type" VALUE="b"x 

PARAM NAME="IncludeHome" V ALUE="G"XPARAM NAME="IncludeParent" VALUE="1"XPARAM NAME * 
="Appearance" VALUE="0"xPARAM NAME="Orientation" VALUE="D"XPARAM NAME="UseTable" VALUE 
="1"XPARAM NAME="UseTheme n VALUE="l"xP ARAM NAME= n HTMLFragment" VALUE=""XPARAM NAME * 
="CurrentHTMLFragment" VALUE=""xPARAM NAME="UseOb jectSyntax" VALUE="0"xPARAM NAME 
="ScriptLanguage" VALUE="Q"xpARAM NAME="FrameTarget" VALUE=""XP ARAM NAME 
="AlternatePage" VALUE=""x/0B JECT> 

— > 

< ! — METADATA TYPE="NavBar" endspan— > 
^ <i — webbot bot="vinavbar" tag="table n s-type="banner" b-include-home="f alse" b-include-up * 
\*£ ="true" s-orientation="horizontal" s-rendering="graphics" b-use-table="true" b-use-theme 

hQ = n true n s-script-lang^VBScript" b-use-ob ject-syntax="f alse" u-page s-target 

ifz s-html-f ragment s-selected-html-f ragment StartSpan — ><strong>CFrontPage vinavbar 

i ComponentK/strongX ! — webbot bot="vinavbar" endspan i-checksum="t23fl i 4 n — > 

m < ! — METADATA T YPE="NavBar" startspan— > 

m < ! — METADATA TYPE="DesignerControl" endspan— > 

<brx/td> 
\J </tr> 
ku <tr> 

<td width="12D" val ign="top"> 
— < ! — METADATA TYPE="Des ig ner Control" startspan 

U <0BJECT classid= n clsid:?053^fc 1 FS-3M71-llDl t -Bb c 13-00ta^7C i: 1AaaM"XPARAM NAME="Type" V ALUE="1"X / 
T Sl PARAM NAME="IncludeHome" VALUE="Q"><PARAM NAME="IncludeParent" VALUE="D"XPARAM NAME 

si ="Appearance" VALUE="0"xP ARAM NAME="Orientation" VALUE="1"><PARAM NAME="UseTable" VALUE 

r; ="1"XPARAM NAME="UseTheme" VALUE="1"><PARAM NAME="HTMLFragment" V ALUE=""XPARAM NAME 

?II ="CurrentHTMLFragment" VALUE=""><PARAM NAME="UseOb jectSyntax" VALUE="0"><PARAM NAME 

O ="ScriptLanguage" VALUE="Q"XP ARAM NAME="FranteTarget" VALUE=""><PARAM NAME kf 

k! ="AlternatePage" VALUE= n "x/0B JECT> 

— > 

<!— METADATA TYPE="NavBar" endspan— > 

<! — webbot bot="vinavbar" tag="table" s-type="f irst" b-include-home="f alse" b-include-up 

="false" s-orientation="vertical" s-rendering="graphics" b-use-table="true" b-use-theme 
="true" s-script-lang="VBScript" b-use-ob ject-syntax="f alse" u-page s-target 
s-html-f ragment s-selected-html-f ragment StartSpan — ><strong>CFrontPage vinavbar \£ 
Component]</strong><! — webbot bot="vinavbar" endspan i-checksum="k23aM" — > 

<!— METADATA TYPE="NavBar" startspan— > 

<! — METADATA TYPE="DesignerContro 1" endspan — > 
</td> 

<td width="100*" valign="top"> 
<!— Vlb . QLAYOUT = "Top and Left H n — > 

< ! — METADATA TYPE="DesignerContro 1" startspan 

<object classid="clsid:lF5tDB71- c iaEl-llDl-B787-QaCDHFDbSt s 4F"></object> 
— > 

<! — Layout Header End — > 

< ! — METADATA TYPE="Designer Control" endspan— > 
<p>&nbspi</p> 

< ! — METADATA TYPE="DesignerControl" startspan 

<object class id="cls id :lF5bDB72-^a21-llDl-B7B7-0aCD^Db5bMF"x/object> 
— > 
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<!-- Layout Footer Begin — > 

< ! — METADATA TYPE= n DesignerControl n endspan— > 
</td> 
</tr> 
</table> 

< ! — METADATA TYPE="DesignerControl n startspan 

<object class id="clsid:lFSbDB73- c ia21-llDl-B7B7-aDCD4PDbSi 3 MF TT ></object> 
— > 

<! — Layout Footer End — > 

< ! — METADATA TYPE= n DesignerControl" endspan— > 

</body> 

</html> 
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<*3 Language=VBScript '/.> 

<html> 

<head> 

<meta NAME="GENERATOR" Content= n f1icrosof t Visual Studio b-Q"> 
</head> 

<frameset SCR0LLING="N0" FRAflESP ACING="1" FR Af1EB0RDER= n Q n rows="flO/.,*"> 
<frame src="realestate„ad.asp"> 

<frameset SCR0LLING= n N0" FRAMESPACING="1" FRAt1EB0RDER="O n cols="50* ■> *"> 
<frame src="realestate_ad_image.asp n target="image_response"> 
< frame src="realestate_ad_imagedi splay • asp" name="image_response"> 
</f rameset> 
</f rameset> 
<nof rames> 
<body> 
</body> 
</nof rames> 
</html> 
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<SCRIPT RUNAT=SERVER LANGUAGE ="JavaScript"> 

// *************************************************** 

// Microsoft Script Library 

// Visual InterDev b-D Button Object for ASP 
// 

// Copyright 1^8 Microsoft Corporation. All Rights Reserved- 

// ************************************************************************ 

function CreateButton( strName if unclnitiob jParent) 

■C 

if ( typeof ( strName ) — 'string' && strName != '') 

{ 

var objButton = new _Button (strName) \ 
eval (strName + ' = ob jButton; ' ) \ 
objButton -_funclnit = funclnit; 

thisPage- advise ( PAGE_0N IN IT t strName + ' -_res toreState ( ) ' ) ; 
return objButton; 

> 

return null; 

> 

function _Button (strName) 
{ 

if (typeof („bBTNPrototypeCalled) == 'undefined') 
_BTN PrototypeO; 

// public members 
this. id = strName; 
this. name = strName; 

// advise for default eventhandlers 

this. _ob jEventManager = CreateEventManager ( ) ; 

this -_ob jEventManager -ad viseDef aultHand ler (this. name-. BTN_ONCLICK ) ; 

} 

function _BTN PrototypeO 

{ 

_bBTNPrototypeCalled = l; 
// events 

BTNJ>NCLICK = 'onclick'; 
// constants 
BTN_TEXT = 0; 
BTN__IMAGE = 1; 

// public members 

_Button. prototype -disabled = false; 
_Button -prototype -value = ''; 
_Button -prototype -src = ''; 
_Button -prototype -alt = rr ; 
_Button-prototype - maintainState = true; 

// private members 

_8utton.prototype-_nStyle = BTN_TEXT; 
_Button • prototype -_bVisible = true; 

// public methods 

_Button - prototype . isVisible = „BTN_isVisible ; 
_Button - prototype - show = _BTN_show; 
Jutton - prototype . hide = „BTN„hide; 
_Button- prototype. setStyle = _8TN„setStyle; 
_Button. prototype. getStyle = _8TN_getStyle; 
_Button - prototype .advise = _8TN_advise; 
_Button - prototype - unadvise = _BTN_unadvise; 
_Button - prototype - display = _BTN_display; 

// private methods 

_Button. prototype. _fireEvent = _EM fireEvent; 

_Button. prototype -_preserveState = _BTN preserveState ; 

_Button . prototype -_restoreState = _BTN restoreState; 

_Button. prototype -__hasState = _BTN hasState; 

//scope implementation to _ BTN Prototype function 
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function _BTN_isVisible () 

{ return this._bVisiblei > 



2 



function _BTN_show() 

{ this ._bVisible = truei > 

function _BTN_hide() 

{ this-_bVisible = falsei } 

function _BTN_setStyle (nStyle ) 
{ this-„nStyle = nStyle^ > 

function _BTN_getStyle (nStyle) 
{ return this ._nStyle^ > 

function _BTN_advise (strEvent n funcToCall) 

{ return this -_ob jEventManager . advise (strEvent ! funcToCalDi > 
function _BTN_unadvise (strEvent n nAdviselD) 

{ return this -_ob jEventManager • unadvise ( strEvent -inAdviselD) n > 

function _BTN_display ( ) 

if (this._bVisible) 
t 

var strHTMH 

if (this. disabled && this._nStyle == BTNJTEXT && ! thisPage - isDHTflLBrowser ( ) ) 
{ // mimic disabled button on non-DHTML browsers 

strHTML = ' <TABLE border=E bgcolor=#C0CQC0 bordercolor=#8G60flQ / 

bordercolordark^ttb^bTb^ bordercolorlight=#CDCDCD cellpadding=D 

cellspacing=Q> r 

strHTML += 1 <TR><T]>><F0NT color^b^fa^&nbsp^&nbsp'i 1 + this- value + 'Snbsp^&tf 
nbspT </FONT></TD></TRX/TABLE> r \ 

y 

else if <this._nStyle == BTN„IMAGE && ! thisPage - isDHTflLBrowser () ) 
{ // use image tag on non-DHTML browsers 

strHTML = ' <If1AGE border=0 name= n ' + this. name + id= n ' + this. id + src 

= nr + this-src + ,n, i 
if (this. alt != ") 

strHTML += ' alt=" r + this. alt + ,TTf i 
strHTML += ' > » 
if ( !this- disabled && 

this ._ob jEventManager . getE vent Count ( ) && 
this-_objEventManager.getEvent(0) == BTN^ONCLIOO 
{ // use anchor tag to support onclick on non-DHTML browsers 

var strHandler - this._ob jEventManager . generateClientHandler (this • name i 
BTN„ONCLICK)i 

strHTML = '<A href =" javascript : ' + strHandler + '">' + strHTML + '</A>'; 

> 

> 

else 
I 

if <this._nStyle == BTN_IMAGE) 

■C 

strHTML = + ' INPUT border=Q type=image name="' + this. name + r " id 

=" r + this-id + src= n ' + this-src + rnr i 
if (this. alt != ") 

strHTML += ' alt^' + this-alt + ,n, i 

> 

else 

strHTML = '<' + ' INPUT type=button name="' + this-name + id = "' + this-* 
id + fn value= nf + Server -HTMLEncode (this - value ) + fn '\ 

if ( ! this- disabled) 

-C // output client events to callback to server 

var strHandler = this ._ob jEventManager- generateClientHandlers (this . name ) i 
strHTML += strHandler'^ 

> 

else 

strHTML += ' disabled' ^ 
strHTML += '>\n'; 



-83- 



C:\unzipped\EZC\Project\Project_Local\_ScriptLibrary\BUTTON-ASP 
> 

Response. liiri te < strHTfIL ) ; 

> 

this -_pre serve State ( ) ; 

> 

function _BTN preserveState ( ) 

•C 

if ( this -maintainState) 
C 

var state = new Objects 
if ( i this-_bVisible) 

state -_bVisible = falser 
if (this-_nStyle ! = BTNJTEXT) 

state -_nStyle = this ._nSty le ; 
if (this- disabled) 

state -disabled = true; 
state-value - this-value; 
if (this-src != ") 

state-src = this-src; 
if (this-alt ! = ") 

state-alt = this-alt; 
return thisPage . persists tate (this - name t state) ; 

> 

return falser 



function _BTN restoreState ( ) 

-C 

this -_f ireEvent( this -_f unclnit ) ; 
if (this - maintainState) 

■C 

var state = thisPage . unpersistState (this - name ) ; 

if (state != null) 

•C 

if (state-_bVisible != null) 

this-_bVisible = (state -_bVisible != 'Q' && state -„bVisible != 'false'); 

else 

this -_bVisible = true; 



if (state. „nStyle != null) 

this._nStyle = Number (state -_nStyle) ; 

else 

this-_nStyle = 8TN_TEXT; 



if (state -disabled != null) 

this- disabled = (state -disabled != '0' &a state - disabled != 'false'); 

else 

this - disabled = false; 



if (state-value != null) 

this. value = state-value; 

else 

this - value = ' ' ; 

if (state-src != null) 

this-src = state-src; 

else 

this-src = ' '; 



if (state- alt != null) 

this- alt = state-alt; 

else 

this-alt = ' ' ; 



return true; 



> 

return false; 



function _BTN hasStateO 
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if ( this . maintainState ) 

return thisPage - isStatePers is ted (this - name) \ 
return falser 

> 

> // end of „BTN Prototype function 

</SCRIPT> 
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<SCRIPT RUNAT=SERVER Language=" JavaScript"> 

//**** ******** *************************** ************************** 

// flicrosoft Scripting Library 

// ADO conversion utilities for extracting data on the server- 

// 

// Copyright mfl Microsoft Corporation. All Rights Reserved- 
//***************************************************************** 

//***************************************************************** 

// function RecordSetAsArray (rsADO includeHeaderRow) 

// A helper function to convert an ADO recordset into a 

// jscript array* Optionally may include the field names 

// as the first row of the array by setting includeHeaderRow 

// parameter to true- 

// 

//***************************************************************** 

function R ecordSet As Array (rs ADO t includeHeaderRow) 

■C 

var rsArray = new Array} 

var nFields = rsADO -Fields - Count; 

if (nFields) 

{ 

var n = OS 

if (includeHeaderRow) 

{ // include first row as header of field names 
var rsRow = new Array (nFields) ; 
for (var i =□ ^ i < nFields; i++) 

rsRowEil = rsADO ( i ) - name ; 
rsArraytn++3 = rsRow; 

> 

while (!rsAD0-E0F) 

-C // add each record to array 

rsRow - new Array (nFields ) ; 

for (var i=Q; i < nFields; i + + ) 
rsRowCil = rsADO ( i )- value t 

rsArrayEn++3 = rsRow; 

rsADO-floveNextO; 

> 

> 

return rsArray; 

> 

//***************************************************************** 
// function RecordSetAsDSO (rsADO) 

// A helper function to convert an ADO recordset into an 
// HTML Data Source Object (DSO). This function creates 
// an HTfIL table where the <TD> cells are identified (id) 
// as the corresponsing ADO field namesi and the <TD> cell 
// contents contain the ADO field values- 
// 

// The return value is a string containing the HTFIL, DS0- 
//***************************************************************** 

function RecordSetAsDSO (rsADO ) 

■C 

var htmlDSO = r ' \ 

var nFields = rsADO - Fields - Counts 

if (nFields) 

{ 

var n = Q; 

htmlDSO += + 'table>\n'; 

while (IrsADO-EOF) 

■C // add each record to table 

htmlDSO += + f tr> r ; 

for (var i=0; i < nFields; i++) 

{ 

htmlDSO += + r td id=' + rsADO ( i ) . name + '>' + rsADO ( i ). value + + '/td/ 
>' ; 

> 

htmlDSO +- + '/tr>\n'; 

rsADO -floveNext ( ) ; 

} 
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htmlDSO += '<' + '/tabled 

} 

return htmlDSOi 

> 

//***************** ************************************************ 

// function RecordSetAsList (rsADO if ield) 
// A helper function to convert an ADO recordset into a 
// jscript array- The field parameter identifies which 
// field to put into the list- The field paramter can be 
// either a field index or a field name- 

//***************************************************************** 

function RecordSetAsList (rsADOn field) 
■C 

var rsArray = new Arrays 

var nFields = rsADO - Fields ■ Count; 

if (nFields) 

•C 

var n = 0 i 

while ( ! rsADO . EOF) 

•C // add each value of field into array 
rsArrayCn + + 3 = rsADO (field) - value i 
rsADO - floveNext ( ) \ 

y 

y 

return rsArray; 

} 

//***************************************************************** 

// function RecordAsOb ject (rsADO -.ob jectName) 

// A helper function to convert an ADO record into a jscript 
// object- The field names of the record will bemused as the 
// object property namesi and the data as the object values- 
// Optionally may indicate the name of the object constructor 
// to be returned-, defaults is 'RSObject'- 
// 

//***************************************************************** 

function RecordAsOb ject (rs ADO i objectName ) 

-C 

if (typeof (objectName) == 'undefined') 

objectName = ' RSOb ject ' \ 
var strObject = 'function ' + objectName + ' ( ) -C ' n 
var nFields = rsADO- Fields- Counts 
if (!rsAD0-E0F) 
•C 

var value = new String; 
var propName = new String; 
for (var i=Q; i < nFields; 
{ 

propName = rsADO ( i ) - natnei 
var cD = propName - charAt (□) ; 

if ((propName- indexOfC ') == -1) && (CcQ >= 'A' && cQ <= 'Z') 11 (cD >= 'a' && * 
cO <= 'z'))) 

{ // exclude fields that are invalid variable names 
value = rsADO(i) -valued 
if ( isNaN( par seFloat ( value) ) ) 

strObject += 'this-' + propName +'="'+ value + ,n ; % \ 

else 

strObject += 'this-' + propName + ' = r + value + r \ ' ; 

y 

y 

y 

strObject += '}'; 
eval (strObject ) ; 

return evaK'new 1 + objectName); 



</SCRIPT> 
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Language=VBScr ipt 
<'/. Option Explicit 
Response -Expires = 0 

Dim ob jOracleConni strConnectString -i ObjRs 
Dim strSflLflueryi strResultVehicleHTML 

Set objOracleConn = Server . CreateObject ("ADODB - Connection" ) 
strConnectString - "DSN=EZC Oracle ;UID=ezc^pwd=sql" 
objOracleConn -Open strConnectString 

Dim StrSflLSearchClause 

'get the search clause to show the results 
StrS(2LSearchClause = Session ("Search__Clause" ) 

Set ObjRs = objOracleConn- Execute <StrS(3LSearchClause) 

if objOracleConn - Errors -Count > Q then 

Response. Write ( "Error in executing") 

For intloop = 0 to ob jOracleConn-Errors-Count - 1 

Response. Write ( "Err *: " a objOracleConn - Errors . Item-Number ) 
Response. Write ( n Err flsg: " a objOracleConn - Errors - Item-Description ) 

Next 
end if 



Dim IntCount t StrColor 

1 go thru the records and make a list 
While Not ObjRs - EOF 

IntCount = IntCount + 1 

if RounddntCount/Eil) - round ( IntCount/E id) =0 • 5 then 
StrColor = "yellow" 

else 

StrColor = "white" 
end if 

strResultVehicleHTML = StrResultVehicleHTML a " <TR>" „ 0 ^ r i , 

strResultVehicleHTML = strResultVehicleHTML a " <TD al ign=absmiddle bgColor=" & StrColor* 

a"xF0NT face=Verdana size=l style=""8ACKGR0UND-C0L0R : #ffffOQ"">" 
strResultVehicleHTML = strResultVehicleHTIIL a " <input type=""hidden"" value=""" a ObjRs* 

("ADV_DETAILS_INT_KEY")a """ name=""ADV_DETAILS_INT„KEY""></FONT></TD> " 
StrResultVehicleHTML = strResultVehicleHTML & n <TD align=absmiddle bgColor=" & StrColor* 

a"><F0NT face=Verdana size=l style=""BACKGROUND-COLOR : *ffff00"">" a ObjRs * 

("YEAR") a "</F0NT></TD>" . _ . . , „ „ ^ ^ i 

strResultVehicleHTML = strResultVehicleHTML a n <TD align=absmiddle bgColor= a StrColor* 

a"><F0NT face=Verdana size=l style=""BACKGROUND-COLOR : #ffffOD"">" & "<A HREF * 

=""vehicle__display_one.asp?ad_value=" a Ob jRs ("ADV_DETAILS_INT_KEY" ) a """>" a ObjRs * 

("VEHICLEJ1AKE") a "</AX/F0NT></TD>" 
strResultVehicleHTML = strResultVehicleHTML a " <TD align=absmiddle bgColor= a StrColor* 

a"><F0NT face=Verdana size=l style=" n BACKGR0UND-C0L0R : #ffffQ0"">" a ObjRs * 

("VEHICLE_MODEL") & "</F0NT></TD>" 
StrResultVehicleHTML = strResultVehicleHTML a " <TD al ign=absmiddle bgColor= a StrColor* 

a"><F0NT face=Verdana size=l style=""BACKGROUND-COLOR : #ffffOQ"">" a ObjRs * 

<"ADV_JITLE") a "</F0NTX/TD>" ^ r , „ <> r , , 

strResultVehicleHTML = StrResultVehicleHTML a " <TD align^absmiddle bgColor= a StrColor* 

a"XF0NT face=Verdana size=l style= n "BACKGROUND-COLOR : #ffff00"">" a ObjRs * 

("PRICE") a "</F0NTX/TD>" _ , „ ^ r 

strResultVehicleHTML = strResultVehicleHTML a " <TD align=absmiddle bgColor= a StrColor* 

a"><F0NT face=Verdana size=l sty le=""BACK:GR0UND-C0L0R : #ffffOQ"">" a ObjRs * 

("CONDITION") a "</F0NT></TD>" . ^ n „ ^ r , 

StrResultVehicleHTML = strResultVehicleHTML a " <TD align=absmiddle bgColor= a StrColor* 

a"><F0NT face=Verdana size=l style=""BACKGR0UND-COLOR : #ffff00"">" a ObjRs * 

("MILEAGE") a "</FONTX/TDX/TR>" 



ObjRs - MoveNext 

Wend 
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<html> 
<head> 

<meta NAHE=" GENERATOR" Content= n riicrosof t Visual Studio b.Q"> 
<'/. 

'javascript functions 

Response-Write( n <script ID=" n clientEventHandlers JS2 nn LANGUAGE =""javascript "">")& vbcrlf 
Response. Write("<! — ")& vbcrlf 
Response. Write ("") & vbcrlf 

Response -Write ("function set_submit_value ( ad_value ) " > & vbcrlf 
Response. Uri te <"{" ) & vbcrlf 

Response -Write <"/* set value of adv int key to retrieve the ad ")& vbcrlf 
Response. Write( n */")& vbcrlf 

Response-Write(" document - forml .submit_click - value = ad_value ")& vbcrlf 

Response. Write(">")& vbcrlf 

Response - Write ( nfT ) & vbcrlf 

Response. Write ("//-->"> & vbcrlf 

Response -Write <"</script>") & vbcrlf 

%> 

</head> 
<body> 

<form name=forml U>=forml > 

<TABLE align=center border=D cellPadding=l cellSpacing=l width="10a*"> 
<TR> 

<TD align=absmiddle bgColor=yel lowXFONT face=Verdana size=l 

style = "BACKGROUNI>-COL0R: #f f f f 0CT></F0NT></TD> 
<TD bgColor=#ff f fDOxSTRONGxFONT face=Verdana size=5 

>YEAR</FONT></STRONGX/TD> 
<TD bgColor=#f f f fOQXSTRONGXFONT face = Verdana size=2 

>riAKE</FONTX/STRONGX/TD> 
<TD bgColor=#f f f fQQXSTRONGXFONT face = Verdana size=E 

>MODEL</FONTX/STRONGX/TD> 
<TD align=absmiddle bgColor=yel lowXSTRONGXFONT face=Verdana size=2 

>TITLE</F0NTX/STR0NG></T1» 
<TD align=absmiddle bgColor=yellow><STRONG><FONT face=Verdana size=S 

>PRICE</FONT></STRONGX/TD> 
<TD align=absmiddle bgColor=yellow><STRONG><FONT face=Verdana size=2 

>C0NBITI0N</F0NT></STR0NGX/TD> 
<TD align-absmiddle bgColor=yellow><FONT face=Verdana size=2 

><STRONG>niLEAGE</STR0NGX/F0NTX/TI»</TR> 

<>. =strResultVehicleHTML X> 
</TABLE> 

<input type="hidden" value="0"i name="submit_click n > 

</f orm> 
</body> 
</html> 
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<5c3 Language=VBScript X> 

<html> 

<head> 

<meta NAME="GENERATOR" Content="Microsof t Visual Studio b.0"> 
<*/. 

Dim objOracleConn, strConnectString, ObjRs, ObjRsAdd 
Dim strSflLfluery, StrSflLAd 

Set objOracleConn = Server . CreateOb ject ("ADODB • Connection" ) 
strConnectString = "DSN=EZC Oracle^UID=ezc*,pwd=sql" 
objOracleConn -Open strConnectString 

Session ( "ADV_DETAILS_INT_KEY") = Request. querystring <"ad_value") 
Session ("OJST.INTJCEY") = "1" 



' get the details from the database 

StrSflLAd = "SELECT DT_EZC_ADV_DETAILS - ADVJ>ETAILS_INTJCEY , 
StrSflLAd = StrSflLAd a " DT_EZC_ADV_DETAILS.CUST_INT_.KEY, 
StrSflLAd = StrSflLAd & " DT_EZC_ADV_DETAILS . ADV_TYPE_INT_KEY , 
StrSflLAd = StrS(3LAd a " DT_EZC__ADV_DETAILS . ADV_ID , 
StrSflLAd = StrSflLAd & " DT_EZC_ADV„DETAILS . CITY , 
StrSflLAd = StrSflLAd & " DT_EZC_ADV_DETAILS - STATE , 
StrSflLAd * StrSflLAd & " DT_EZC_ADV_DETAILS.ZIP, 
StrSflLAd = StrSflLAd & " DT„EZC_ADV_DETAILS - ADV_TITLE , 
StrSflLAd = StrSflLAd & " DT_EZC_ADV_DETAILS . ADV_TYPE_DESC, 
StrSflLAd = StrSflLAd & " to_char (DT_EZC_ADV_DETAILS - PRICE) PRICE-. 

StrSflLAd = StrSflLAd a " DECODE (DT_EZC_ADV_DETAILS- FIRM_BESTOFFER , 'B'i 'Best -* 

Offer' i 'Firm') FIRM_BEST OFFER , 
StrSflLAd = StrSflLAd a " DT_EZC_ADV ^DETAILS - CONDITION , 
StrSflLAd = StrSflLAd & " DT_EZC_ADV_D£TAILS. COMMENTS, 
StrSflLAd = StrSflLAd 8 " DT_EZC_ADV_DETAILS - ADV_CONTACT_NAME , 
StrSflLAd = StrSflLAd a " DT_EZC_ADV_DETAILS - ADV_CONTACT_INFO, 
StrSflLAd = StrSflLAd & " DT_EZC_ADV_DETAILS - CREATE_D ATETIME , 
StrSflLAd = StrSflLAd a " DT_EZC_ADV_DETAILS - LASTUP DA TE_D ATETIME , 
StrSflLAd = StrSflLAd a " DT_EZC_ADV_DETAILS . ADVJJRL, 

StrSflLAd = StrSflLAd a " DT_EZC_VEHICLE_DETAILS - VEHICLE_DETAILS_INT_KEY , 

StrSflLAd = StrSflLAd a " DT_EZC_VEHICLE_DETAILS - ADV_DETAILS_INT_KEY i 

StrSflLAd = StrSflLAd a " DT_EZC_VEHICLE_DETAILS - ADV_ID , 

StrSflLAd = StrSflLAd a " CT_EZC_VEHICLE__MAKE • VEHICLE_MAKE , " 

StrSflLAd = StrSflLAd a " CT_EZC_VEHICLE_f10DEL • VEHICLE_MODEL," 

StrSflLAd = StrSflLAd a " TO.CHAR (DT_EZC_VEHICLE_DETAILS . YEAR ) YEAR, 

StrSflLAd = StrSflLAd a " D T_EZC_VEHICLE_DET AILS • DOORS , 

StrSflLAd = StrSflLAd a " DT_EZC_VEHICLE_DETAILS . TRANSMISSION , 

StrSflLAd = StrSflLAd a " DT_EZC_VEHICLE_DETAILS - ENGINE, 

StrSflLAd = StrSflLAd a " DT_EZC„VEHICLE_DETAILS . FUEL_TYPE , 

StrSflLAd = StrSflLAd a " DT_EZC_VEHICLE_DETAILS - EXT__C0L0R, 

StrSflLAd = StrSflLAd a " DT_EZC_VEHICLE_DETAILS . INT_COLOR , 

StrSflLAd = StrSflLAd a " T0_CHAR (DT_EZC_VEHICLE_J>ETAILS • MILEAGE) MILEAGE, 

StrSflLAd = StrSflLAd a " DECODE (DT_EZC_VEHICLE_DETAILS - UNIT_0F_MEASURE , 'M', 'Miles', 'KM') M 

UNIT_OF_MEASURE " 
StrSflLAd = StrSflLAd a " FROM DT_EZC__ADV_DETAILS i 
StrSflLAd = StrSflLAd a " DT„EZC_VEHICLE_DETAILS , 
StrSflLAd = StrSflLAd a " CT„EZC_VEHICLE_J1AKE , 
StrSflLAd = StrSflLAd a " CT_£ZC_VEHICLE_MODEL 

StrSflLAd = StrSflLAd a " WHERE ( DT_EZC_ADV_DET AILS . AD V_DETAILS_ INT_KEY = * 

DT_EZC_VEHICLE_DETAILS - ADV_DETAILS_INT_KEY ) and " 
StrSflLAd = StrSflLAd a " ( DT_EZC_ADV_DETAILS - ADV_DET AILS„INT_KEY = '" a Session 

( "ADV_DETAILS_INT_KEY") a" r ) and " 
StrSflLAd = StrSflLAd a " < DT_EZC__VEHICLE_DETAILS - MAKE = CT_EZC_VEHICLE_MAKE - * 

VEHICLE_MAKE_INT_KEY ) and " 
StrSflLAd = StrSflLAd a " ( DT_EZC_VEHICLE_DETAILS - MODEL = CT_EZC_VEHICLE„MODEL - 

VEHICLE_MODEL_INT_KEY ) " 



'Response. Write (StrSflLAd) 



' now execute the query 

Set ObjRsAdd = ob jOracleConn-Execute (StrSflLAd) 
if objOracleConn . Errors . Count > 0 then 

Response. Write ( "Error in executing"). 

For intloop = Q to objOracleConn -Errors - Count - I 

Response . Write ( "Err #: " a objOracleConn. Errors-Item-Number ) 
Response -Write ( "Err Msg: " & objOracleConn - Errors - Item . Description ) 

Next 
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end if 

Dim sle_title__var 

Dim sle_description_var 

Dim sle_url„var 

Dim sle_price_var 

Dim cbx_firm_var 

Dim sle_year_var - 

Dim sle_mileage_var 

Dim lb_.mileage„uom_var 

Dim sle_condition__var 

Dim lb_doors_var 

Dim lb„transmission_var 

Dim sle_ext_color_var 

Dim lb_f uel_type„var 

Dim sle_engine_var 

Dim sle_city_var 

Dim sle_state„var 

Dim sle_zip_var 

Dim sle_int_color„var 

Dim sie_vehicle_make_vari sle_vehicle_model_var 

sle_title„var = Ob jRsAdd("ADV_TITLE") 
sle_description_var = Ob jRsAdd ("AD V_TYPE_DESC") 
sle_url_var = Ob jRsAdd ("AD V_URL" ) 
sle_price_var = Ob jRs Add ("PRICE") 
sle_firm_var = Ob jRsAdd ("FIRN_BESTOFFER" ) 
sle„year_var = Ob jRsAdd ("YEAR") 
sle_mileage_var = Ob jRsAdd ("MILEAGE") 
sle_mileage_uom_var = Ob jRsAdd ("UNIT_OF_f1EASl)RE" ) 
sle_condition„var = Ob jRsAdd ("CONDITION" ) 
sle_doors„var = Ob jRsAdd ("DOORS") 
sle_transmission_var = Ob jRsAdd ("TRANSMISSION") 
sle_ext_color_var = Ob jRsAdd ("EXT_COLOR") 
sle_fuel_type_var = Ob jRsAdd("FUEL_TYPE") 
sle_engine„var = Ob jRsAdd ("ENGINE" ) 
sle_city_var = Ob jRsAdd ("CITY") 
sle„state_var = Ob jRsAdd ("STATE") 
sle„zip_var = Ob jRsAdd ("ZIP" ) 
sle_int_color_var = Ob jRsAdd ("INT_COL0R" ) 

sle„vehicle_make_var « Ob jRsAdd ("VEHICLE_f1AKE") 
sle_vehicle_model_var = Ob jRsAdd ("VEHICLE_MODEL") 

'get the list of options for this particular car 

strS(2L(2uery = " SELECT DT_EZC_ADV_AND_OPTIONS • ADV_AND„OPTIONS_INT_KEY i CT„EZC_ADV_OPTI0NS - * 

ADV_OPTIONS_INT_KEYi " 
strSflLfluery = strS(2L(2uery & " CT„EZC_ADV_OPTIONS • 0PTIONJESC-, 

strSflLfluery = strS(2L(2uery & " nvl (DT_EZC_ADV_AND_OPTIONS . ADV_OPTIONS_INT_KEY -. 'N') 
CHECKED„VALUE " 

strS(3L<3uery = strS<2L<2uery a " FROM CT_EZC_ADV_OPTI0NS DT_EZC_ADV_AND_OPTI0NS 
strS(2L(2uery = strS(2L<2uery & " iilHERE CT_EZC_ADV_OPTIONS - ADV_TYPE_INT_KEY = '3' " 
strS(2L<3uery = strSflLfluery & n and CT_EZC„ADV_OPTIONS • ADV_OPTI0NS„INT_KEY = 

DT_EZC_ADV_AND_OPTIONS.ADV_OPTIONS_INT._KEY (+) " 
strS(2L(2uery = strS(2L(2uery & " and DT_EZC_ADV_AND_OPTIONS - ADV„DETAILS_INT_KEY (+)='"& 

Session ( "ADV_DETAILS_INT_KEY" ) &"'" 

' Response -ttrite (strSc2L(2uery+"<P>" ) 
f now execute the query 

Set ObjRs = ob jOracleConn - Execute ( strSdLfluery ) 
if objOracleConn . Errors - Count > 0 then 

Response . Urite ( "Error in executing") 

For intloop = 0 to objOracleConn -Errors . Count - 1 

Response. Write ( "Err #: " & ob jOracleConn - Errors . Item . Number ) 
Response. Urite ( "Err flsg: " & ob jOracleConn. Errors-Item-Description ) 

Next 
end if 



Dim IntCount 
IntCount = Q 
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Dim StrHTMLVehicleOptions-. StrChkValue 

StrHTMLVehicleOptions * "<TABLE rowspan=10> n 
dim StrCHKName 
blhile Not Ob jRs ■ EOF 

StrChkValue = "" 
IntCount = IrvtCount + 1 

r if oddn then begin a new row 

if RounddntCount/2-.l) - round (IntCount/S i0) =0 • S then 

StrHTMLVehicleOptions = StrHTMLVehicleOptions a "<TR>" 
end if 

' if this is the first time the form is diplayed-. values are from db or form 
If Request. ServerVariables ("CONTENTJ.ENGTH") <> 0 Then 

'values are from the form ^ L 
if Request. Form ( "Ocheckbox"a Ob jRs <"ADV_OPTIONS_INT_KEY" ) ) = "on" then 
StrChkValue = "checked" 

else 

StrChkValue = "" 
end if 

'StrChkValue = Request-Form ("OcheckboxS") 
'StrCHKName = "checkbox"aOb jRs ("ADV_OPTIONS_INT._KEY") 

'"rChkValu^ = Response. Form ("Ocheckbox (Ob jRs ("ADV_OPTIONS_INT_KEY" ) ) ) 

else 

' value is coming from the database 
if Ob jRs ("CHECKED_VALUE" ) = "N" then 
StrChkValue = "" 

else 

StrChkValue = "checked" 
end if 
end if 

StrHTMLVehicleOptions - StrHTMLVehicleOptions & "<TDXINPUT id=Ocheckbox" aObjRs 

("ADV_OPTIONS_INT„KEY")a" name=Ocheckbox" aOb jRs <"ADV„OPTIONS_INT_KEY") a " type = 
checkbox " a StrChkValue a "x/TDXTDXFONT face-Verdana size=l> n aObjRs 
("OPTIONJESC") & "</TD>" 

'if eveni then end the row 

if RounddntCount/Hil) - round(IntCount/EiO)=0 then 

StrHTMLVehicleOptions = StrHTMLVehicleOptions a "</TR>" 
end if 

Ob jRs -MoveNext 

StrHTMLVehicleOptions = StrHTMLVehicleOptions a"</TDX/TRX/TABLE>" 

Ob jRs .close 

Set ObjRs = Nothing 

'get all the contact information for this user 
'account id is in session variable (accountid) 

Dim strCust_ContactS<2L<3uery 
' temp 

strCust ContactSfiLfiuery = strCust ContactSflLfluery a " SELECT CT . OJST_C0NTACT_C0DE, " 
SrCuIt cSntlctSflLflu^ = strCus t~ContactS<2L<2uery a n CT . CUST_CONTACT_DESCRIPTION i " 
^rCus^ContactS^ = strCustlContactS^Lfiuery a "CT . CUST„CONTACT_TYPE_INT_KEY i " 

strCust_ContactS(3LGuery = strCust_ContactS(2L(2uery & "CO <= UST - C0NT ^I-^I A ; 
strCust ContactSflLGuery = strCust_ContactS(3L(3uery a "CC . CUST_CONTACT_INT_KEY-. 

strCustlContactSflLtSue = strCustlContactSflLfluery a "nvl < CD - ADV_DETAILS_INT_KEY , '" a Session* 

( "ADV DETAILS INT KEY") a" ' ) ADV DETAILS_INT_KEY " 
strCust_Cont^ = s trCust.ContactS^uery a "nvl( CD - ADV_CONTACT_DETAILS_INT_KEY ✓ 

strds^ * "FROM CT_EZC_CUSTOMER_CONTACT_TYPE CT . 
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strCust_ContactSSL(2uery = strCust_ContactS(21_<2uery & n DT_EZC_ADV_CONTACT_DETAILS CD-, 

strCust_ContactS<2L(2uery = strCust_ContactS<2L(2uery 8, "DT_EZC__CUSTOriER_CONTACT CC " 

strCust_ContactS(3L(2uery ' strCust_ContactSt2L(2uery & "WHERE ( CD • cust„contact_int__key ( + ) = CC*> 

. cust_contact_int_key ) and " 

strCust_ContactS4L(2uery = strCust_ContactS£Li2uery & "< CC - CUST_CONTACT_TYPE_INT_KEY = CT. 

CUST_CONTACT__TYPE_INT_KEY ) and n 

strCust__ContactS(2L<2uery = strCust_ContactSf3L(2uery & "( CC • CUST_INT_KEY * »" & Session wf 

("CUST„INT_KEY")&"' )" 

' now execute the query 

Set ObjRs - objOracleConn. Execute (strCust_ContactSt3Lfluery ) 
if ob jOracleConn-Errors-Count > D then 
Response. Write ( "Error in executing") 
For intloop = 0 to ob jOracleConn - Errors • Count - 1 

Response . Write ( "Err " & objOracleConn - Errors ■ Item - Number ) 
Response .Write ( "Err flsg: " & objOracleConn • Errors . Item . Description ) 

Next 
end if 

IntCount = 0 

Dim StrHTNLCust_ContactOptions 

StrHTf1LCust_Contact0ptions = "<TA8LE bgColor=""yellow nn border=""Q"" cellPadding= n "l n " 
cellSpacing= nn l n " width=""100V."">" 

While Not ObjRs .EOF 

IntCount = IntCount + 1 

'if oddi then begin a new row 

if RounddntCount/2-.l) - round < IntCount/2 id) =0 . 5 then 

StrHTNLCust.ContactOptions = StrHTMLCust_ContactOptions & "<TR>" 
end if 

StrHTHLCust.ContactOptions = StrHTflLCust_ContactOptions & "<TD><INPUT id=checkbox" &0bjRstf 
("CUST_CONTACT_JLNTJCEY")&" name=checkbox" &0b jRs ("CUST_CONTACT_INTJCEY") 8 " type= * 
checkbox></TD><TD><F0NT face=Verdana size=l>" &0bjRs 

("CUST_CONTACT„DESCRIPTION") & " (" & Ob jRs <"CUST_CONTACT_DATA") & ") </TD>" 
'if even-, then end the row 

if Round<IntCount/2il) - rounddntCount/2-iO) =0 then 

StrHTI1LCust„Contact0ptions = StrHTMLCust_ContactOptions & "</TR>" 
end if 

Ob jRs -floveNext 

Wend 

StrHTMLCust_ContactOptions = StrHTP!LCust_ContactOptions &"</TDX/TRx/TABLE> n 

Ob jRs -close 

Set ObjRs = Nothing 

>.> 

</head> 
<body> 

<form name="f rm„create_vehicle_ad" id="f rm_create_vehicle_ad" method="POST n Xfont size~"l"> 
<TABLE border=0 cellPadding=l cellSpacing=l width= n 1003£ n style-"HEIGHT: MHlpx^ WIDTH : fcx?Hpx"> 

<TB0DY> 

<TR> 

<TD align=middle> 

<TABLE align=center border=0 eel lPadding=l cellSpacing=l 
style= n HEIGHT: 333px'-, WIDTH : 57?px" width="lDG^"> 
<TB0DY> 
<TR> 

<TD></TD> 

<TD align=middle colSpan=H> 

<P align=lef txFONT color=green face=Verdana size=SX/f ONTX/Px/TDx/TR> 
<TR><TD align=middle><P align=lef txFONT color=green f ace=Verdana size=l>Contact 

Hethods:</TD> 
<TD align=middle colSpan=H> 

<TABL£ align=center bgColor=yellow border=Q cellPadding=l 

cellSpacing=l width= TT lD05; TT > 
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</TD> 

<TR> 

<TD align=middle><^ =StrHTMLCust_ContactOptions *X/TDX/TRX/TABLE> 

<TR> 

<TD align=middle> 

<P align=right><PONT face = Verdana size=l>Title : </FONTX/Px/TD> 
<TD align=middle colSpan=3> 

^t^ P fl i 9n=left><F0NT face=Verdana size = lxx = slG_title van *x/FONT></Px/TD> 
<TD align=middleX/TD> 
<TI> align = middleX/TD> 
<TD align=middle></TDx/TR> 
<TR> 

<TD align=niiddle> 

<P align=right><FONT face=Verdana size=l>Description : </FONTx/PX/TD> 
<TD align=middle colSpan=3><F0NT face=Verdana size=l> 

<P align=left> <% = sle_descripti on_var *x/FONTX/Px/TD> 
<TD align=middle></TD> 
<TD align=middle></T]» 
<TD align=middleX/TDX/TR> 

<* IF Session("INDIVIDUAL n ) <> "I" THEN ' only for agent*> 
<TJ> align=middle> 

<P align=right><FONT face=Verdana size=l>Link Ueb Page : </FONTx/Px/TI» 
<TD align=middle colSpan=3> 

<P align=lGft><A HREF="<* = sle_url_var '<>"></. = sle url var '/x/A> 
</Px/TD> " - 

<TJ> align=middle></T3>> 

<TD align=middlex/TD> 

<TD align=middle></TD></TR> 

<X END IF '/.> 
<TR> 

<TD align=middle> 

<P align=rightXFONT face=Verdana size=l>VehiclG Make : </FONTx/Px/TD> 
<TD align=middle> 

<P align=left><^ =sle_vehicle_make_var *X/PX/TD> 
<TD align=middle> 

<P align=right><FONT face=Verdana size=l>f1odel : </FONTX/Px/TI» 
<TD align=middle> 

<P align=lef t><k =sle_vehicle__model_var *X/Px/TI» 
<TJ> align=middle> 

<TABLE bgColor=yellow borders cellPadding=l cellSpacinq=l 

width= n lD0*"> 3 

</TABL£X/TDX/TR> 

<TR> 

<TD align=middle> 

<P align=right><FONT face=Verdana size=l>Price : </FONTX/PX/TD> 
<TD align=middle> 

<P align=left><FONT face=Verdana size=lx* = sle_pricG_var '/> 

&nbspT<*=sle_f irm_var *x/FONTx/PX/TD> 
<TD align=middle> 

<DIV align=lef t>&nbspi</I>IVx/T]>> 
<T3> align=middle><FONT face=Verdana size=lX/FONTx/TD> 
<TD align=raiddlGX/TDx/TR> 
<TR> 

<TD align=middl6> 

<P align=rightXFONT face=Verdana size=l>Year : </F0NTX/PX/T]» 
<TD align=middle> 

<P align=leftXFONT face=Verdana sizG=l><^ - sle year var » 
</FONTX/PX/TD> M^year^var /:> 

<TD align=middle> 

* P f} i 9 n= right><F0NT face=Verdana size=l>Fuel Type : </FONTX/PX/TD> 
<TD align^middleX* =sl e_f uel_type_var X> 

<P align=lef tx/PX/TI» 
<TD align=middle></Tl>X/TR> 
<TR> 

<TD align=middle> 

<P align=rightXFONT face=Vcrdana size=l>f1ileage : </FONTx/Px/TD> 
<TD align=middle> 

<P align=left><FONT facG=Verdana size^X* = sle.rcileage.var *> 

&nbsp„</C = sle_mileage_uom_var *x/FONTx/Px/TD> 
<TD align=middle> 
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<P align=rightxFONT face=Verdana size=l>Engine : </FONTX/Px/TD> 
<T3> align=middle> 

<P align=lef txFONT face=Verdana sizG=l><3: = sle_engine_var Z> ></FONT></PX/TD> 
<TD align=middleX/TDx/TR> 
<TR> 

<T3> align=ntiddle> 

<P align=right><FONT face=Verdana size=l>Condition:</FONTx/Px/TD> 
<TD align=middle> 

<P align=lef txFONT face=Verdana size=lx*/. = sle_condition_var >.> 
</FONTx/Px/TD> 
<TD align=middle> 

<P align=right><FONT face = Verdana size=l>City : </FONTX/PX/T]» 
<T3> align=middle> 

<P align=lef txFONT face=Verdana size=Oi><3c - sle_city_var X> </FONTx/Px/TD> 
<TD align=middle></TD></TR> 
<TR> 

<T3> align=middle> 

<P align=right><FONT face=Verdana size=l>Doors : </FONTX/Px/T]» 
<TD align=middle> 

<P align=left><^ = lb__doors„var '/.x/PX/TD> 
<TD align s: middle> 

<P align=right><FONT face=Verdana size=l>State :</FONTx/Px/Tl» 
<TD align-middle> 

<P align=left><FONT face=Verdana size=ix* = sle_state_var X> </FONT></P></TD> 
<TD align=middlex/TDx/TR> 
<TR> 

<TD align=middle> 

<P align=right><FONT face=Verdana size=l>Transmission :</FONT></Px/TD> 
<T3> align=middle> 

<P align=lef txX =lb__transmission_var */.x/PX/TD> 
<TD align=middle> 

<P align=right><FONT face=Verdana size=l>Zip : </FONTX/Px/TI» 
<TD align=middle> 

<P align=lef txFONT face=Verdana size=lx* = sle_zip_var %> </FONTx/PX/TD> 
<TD align=middle></T3)x/TR> 
<TR> 

<TJ> align s =middle> 

<P align=right><FONT face=Verdana size=l>Ext. Color :</FONTX/PX/TD> 
<TD align=middle> 

<P align=lef txFONT face=Verdana size=lx5; = sle_ext_color_var Z> 

</FONTX/PX/TD> 
<TD align=middle> 

<P align=right><FONT face=Verdana size=l>Int . Color : </F0NTX/P></TJ)> 
<TD align=middle> 

<P align=lef txFONT f ace=Verdana size=lx* = sle_int_color_var ~4> </FONTX/Px/TD * 
> 

<TI> align=middle></TI»</TR> 
<TRXTJ»</TD> 

<T3> align=middle colSpan =| 4> 

<P align=left><INPUT id=submitl name=submi tl style= n HEIGHT : EMpxi WIDTH : ^px" * 
type=submit value=0<x/Px/TD> 
<TD align=middle></TD> 
<T3> align=middle></T1» 
<TJ> align=middleX/T]»</TR> 

<P> 

<P> 

<P> 

<P align=leftx/Px/TBOJ>Yx/TABLEX/TD> 
<TD align=middle bgColor=yellow vAlign=top 
>&nbspi&nbspT &nbspi  &nbspT&nbsp^  anbsp^&nbspn&nbspn Snbspi&nbsp ^nbsp^S 
nbspi&nbspT&nbspi&nbspi&nbspn&nbspn&nbspT&nbspT 

<TABLE bgColor=yellow border=D eel LPadding=l eel lSpacing=l width="lQQ^"> 

</TABLEX* =StrHTf1LVehicleOptions *x/T3)x/TRX/TBODYx/TABLE>  

<input type= n hidden" value= n Q"i name= n submit_cl ick n > 



</f ormx/F0NT> 

</body> 

</html> 
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<XB Language=VBScript X> 

<html> 

<head> 

<meta NAriE = "GENERATOR" Content= n riicrosof t Visual Studio b.Q"> 

</head> 

<body> 

<*3 LANGUAGE=" VBSCRIPT" X> 
<X 

i « 

' Instanciate SA-FileUp 

Set upl = Server -CreateObject("Sof tArtisans -FileUp") 

r Set the default path to store uploaded files- 

upl. Path = "c:\temp" 
'/.> 

<Z if upl-IsEmpty Then '/,> 

The file that you uploaded was empty. Most likely! you did not specify a valid 

filename to your browser or you left the filename field blank- Please try again- 
<Z Elself upl - ContentDisposition <> "form-data" Then '/.> 

Your upload did not succeedi most likely because your browser 

does not support Upload via this mechanism. 
<*Else X> 

<P>The file was successfully uploaded - </P> 

<y. 

on error resume next 

r 

' Save the file now- If you want to preserve the original user's filenamen use 

upl -Save 

r _ 

' ORi if you want set your own namei uncomment one of the below lines 

r 

' upl-SaveAs "upload-tst" ' this uses -Path property 

i upl-SaveAs "d:\someotherdir\myfile-ext" 

' upl-SaveAs "\\bowser\calendar\myf i le . ext" ' NOTE: The anonymous user *must* havetf 

network 

9 access rights for UNC names to work 

if Err <> Q Then X> 

<H1><F0NT C0L0R="#ffO0GO">An error occurred when saving the file on the server. </ * 

F0NT></H1> 
Possible causes include: 
<UL> 

<LI>An incorrect filename was specified 

<LI>File permissions do not allow writing to the specified area 
</UL> 

Please check the SA-FileUp documentation for more troubleshooting information! 
or send e-mail to <A HREF="mailto : inf oSsof tartisans . com">inf oSsof tartisans - com</A 
> 

<'A 'Else 

' Response. Urite ("Upload saved successfully to " & upl . ServerName) 
End If '/.> 

</. End If '<> 

</B0DY> 

</HTf1L> 
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<Z$ Language=VBScript '4> 

<html> 

<head> 

<m6ta NAME= "GENERATOR" Content="f1icrosof t Visual Studio b-D"> 

</head> 

<body> 

<form ACTION="vehicle_ad_imageresponse.asp" ENCTYPE="multipart/f orm-data" f1ETH0D="post n > 
<table UI3)TH="iaD^" style="HEIGHT : 53px=i WIDTH: 321px" border="0" CQllPaddinq="D" cellSpacinqtf 
= "□"> 

<tr> 

<td ALIGN="right"> 

<p align="center"Ximg src=". -/-./-- /images/clipart/car -gif" style="HEIGHT : 7Mpx; WIDTH wr 
: l?Mpx" UIDTH="Mfl" HEIGHT = "3fl n >&nbsp i </p> 
</td> 

</tr> 
</table> 
</f orm> 

</body> 
</html> 
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Language=V8Script Z> 
<html> 
<head> 

<meta NAf1E= n GENERAT0R" Content= n riicrosof t Visual Studio b-0 n > 

</head> 

<body> 

<F0RM ACTION="vehicle__ad_imageresponse.asp n ENCTYPE="multipart/f orm-data" f1ETH0D= n post n > 
<TABLE tiiIDTH= n 100* n sty 1 e="HEIGHT : S3px'n WIDTH: 3Elpx n border=Q cellPadding=D eel lSpacing=Q> 
<TR> 

<TD ALIGN= r, right" VALIGN="top n XFONT face = Verdana 
size=l>Upload Image : </F0NT> </TD> 

</. 
t _ 

Note the use of the TYPE= n FILE" specification 

<TD ALIGN= n left n XlNPUT TYPE="file n NAHE= n FILEl" 
style="FONT-FAMILY: serif; FONT-SIZE : x-small"> 

</TD> 
</TR> 
<TR> 

<TI> ALIGN= n right"> </TD> 
<TD ALIGN =TT lef t"> 

<P align=left><INPUT TYPE="submit" NAME="SUBl n VALUE= n Upload Image" style="FONT-FAMILY 
: serif; FONT-SIZE : x-smalli HEIGHT: S3px; WIDTH: 13Hpx"x/PX/TD> 

</TR> 

</TABLE> 

</F0Rf1> 

</body> 
</HTML> 
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<Xq\ Language=VBScript X> 

<z 

'see if second time the form is submittted 

If Request. ServerVar iables ("CONTENTJ_ENGTH" ) <> 0 Then 

if Request - Form ("option_chosen") = "View Ad" then 

Session("Chosen_0ption") = "View Ad" 

' connect to the database and check the account 
Dim ob jOracleConn-, strConnectString i ObjRs 
Dim strSflLfluery 
Dim StrMessage 

Dim StrSflLSearchClause-, StrSelectClause -i StrFromClause-, StrWhereClause 

Set ob jOracleConn = Server - CreateObject <"AD0DB . Connection" ) 
strConnectString = "DSN=EZC Oracle; UID=ezc : ipwd=sql" 
obj Oracle Conn - Open strConnectString 

Response . Clear 

' set the search string to the person's phone number 

1 now build the sql 

StrSelectClause = " SELECT EZODT 

StrSelectClause = StrSelectClause 

StrSelectClause = StrSelectClause 
-, 

StrSelectClause = StrSelectClause 

StrSelectClause = StrSelectClause 

StrSelectClause = StrSelectClause 

StrSelectClause = StrSelectClause 

n 

1 

StrSelectClause = StrSelectClause 
MILEAGE-, 

StrSelectClause = StrSelectClause 

StrFromClause = " FROM EZC - DT_EZC_ADV_DETAILS , EZC - DT_EZC_VEHICLE_DETAILS -, EZC- * 
CT_EZC_VEHICLE_MAKE-, EZC - CT_EZC_VEHICLE_MODEL EZC - DT_EZC_CL)ST0f1ER_INF0 " 

' DEFAULT WHERE clause has join conditions 

StrWhereClause = " WHERE EZC - DT_EZC_AD V_DET AILS • ADV_DETAILS_INT_KEY = EZC - 

DT_EZC_VEHICLE_DETAILS. ADV_DETAILS_INT„KEY and " 
StrWhereClause ~ StrWhereClause & " EZC - DT_EZC_VEHICLE_DETAILS - MAKE = EZC - ^ 

CT_EZC_VEHICLE_MAKE - VEHICLE_MAKE_INT_KEY and " 
StrUhereClause = StrbJhereClause & " EZC • DT_EZC_VEHICLE_DETAILS - MODEL = EZC - 

CT_EZC_VEHICLEJ10DEL.VEHICLE_M0DEL_INT_KEY AND " 
StrbJhereClause = StrblhereClause & " EZC .DT_EZC_CUSTOMER_INFO . CUST_INT„KEY = EZC- 

DT_EZC_ADV_DETAILS . CUST_INT_KEY " 

' ad the phone number search 

StrbJhereClause = StrbJhereClause & " and EZC - DT_EZC_CUSTOMER_INFO • CUST_PHONE_NUM 

= ^ISBEDfli*? 1 !'" 
f get rid of the first and in the where clause 

StrSflLSearchClause = StrSelectClause & StrFromClause & StrUhereClause 

1 Response. Write (StrSflLSearchClause ) 
Dim ObjRsSearch 

'Set ObjRsSearch = ob jOracleConn . Execute (StrSfiLSearchClause ) 
Set ObjRsSearch = ob jOracleConn - Execute (StrSdLSearchClause ) 

if ob jOracleConn- Errors. Count > Q then 

Response .bJrite ( "Error in executing") 

For intloop = □ to ob jOracleConn . Errors - Count - 1 

Response. Write C "Err #: " & ob jOracleConn -Errors . Item . Number ) 
Response. Write ( "Err Msg: " & ob jOracleConn - Errors - Item - Description ) 

Next 
end if 

StrSearchHTMLClause ' 



_EZC_ADV_DET AILS . ADV_DETAILS_INT_KEY , 



& 


n 


EZC-DT_EZC_ADVJ>ETAILS-ADV TITLE-, 




& 


n 


to_char CEZC - DT_EZC_ADV_DE TAILS - PRICE ) PRICE 




a 


n 


EZC . DT_EZC_ADV_DET AILS -CONDITION -i 




a 


n 


EZC • CT_EZC_VEHICLE__MAKE - VEHICLE MAKE-, 




a 


n 


EZCCT_EZC_VEHICLE MODEL - VEHICLE MODEL-, 




a 


n 


to_char (EZC- DT_EZC_VEHICLE_DET AILS - YEAR) YEAR 




a 


n 


to_char (EZC ■ DT_EZC_VEHICLE_DETAILS - MILEAGE ) 




a 


n 


EZC-DT_EZC_VEHICL£_DETAILS-UNIT_OF_MEASURE " 
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'if ObjRsSearch-EOF then 

' Response-Write ("R no recs"& Ob jRsSearch . recordcount ) 
' else 

' Response-lilrite("R recs"& Ob jRsSearch. recordcount) 
'end if 

' if now rows foundi then display messagei else take them to the 
' next pa-ge 

if not Ob jRsSearch- EOF then 

1 redriect to the ad directly 

Session ("Search_Clause") = StrStf LSearchClause 
' Response -Write (StrSfiLSearchClause) 
Response - Clear 

Response .Redirect ("Main/Ads /search_vehicle/vehicle_display_result- asp") 
end if 



elseif Request. Form ("option_chosen") = "Search Ad" then 
' user would like to search our listings 
Session("Chosen_Option") = "Search Ad" 
Response - Clear 

Response - Redirect ("menu_ad_se lectio n - asp") 
elseif Request. Form ("option_chosen" ) = "Create Ad" then 
'search ads 

Session<"Chosen_Option") = "Create Ad" 
Response. Clear 

Response - Redirect ("logon -asp") 

else 

'maintain account 

Session("Chosen_Option") = "View Account" 
Response - Clear 

Response. Redirect ("logon. asp") 
end if 
end if 
X> 



<HTf1L> 
<HEAD> 

<f1ETA NAME="GENERAT0R" Content="Plicrosof t Visual Studio t.Q"> 
<script ID="clientEventHandlersJSl" LANGUAGE= n javascript"> 
<! — 

function jvs_selection_made (as„selected_ value ) 
•C 

/* set the hidden field to the value 
*/ 

forml-option_chosen. value = as__selected_value 
/*alert(forml- option__chosen -value ) */ 
f orml.submit( ) 

> 

//— > 

</script> 

</HEAD> 

<80DY bgColor=darkblue> 
<DIV align=center> 

<form name = forml action="sidemenu - asp" target="display" method = "post"> 

<TABLE border=D cellPadding=H cellSpacing=M width="75*" style="HEIGHT : EtGpx=i UIDTH : 125px" * 
align=lef t> 
<TB0])Y style = "C0L0R: yellow"> 

<TR> 
<TD> 

<P align=left><STR0NG><F0NT face=Verdana size=l style="C0L0R : yellow" 
>Telephone Number</F0NT></STR0NG></P></TD></TR> 
<TR> 
<TD> 

<DIV align=left> 

<TABLE border=Q cellPadding=Q cellSpacing=Q width="10D*" borderColor=silver align= \t 
center styl e="VER TIC AL- ALIGN : top"> 
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<TDXSTRONGxFONT face=Verdana size=l><INPUT id=EZC0DE_NU!1BER maxLength=l£ name= 
EZC0DE_NUf1BER 

sty le="HEIGHT : 22px; WIDTH: c 35px"X/FONTx/STRONGx/TD> 
</TRx/TABLEX/DIV> 

<P align=lef txiNPUT align=middle id=s_view_ad name=s_view_ad style="FONT-FAMILY : serifs 
; FONT-SIZE: xx-small; HEIGHT : 20px; LEFT : Mpx; TOP : t2px; VERTICAL-ALIGN : top; WIDTHS 
: ^bpx" type=submit value="View AD" onclick = " jvs„selection_made ( f View Ad')" ></?></* 
TDX/TR> 

<TR> 
<TD> 

<INPUT align=middle id=s_create_ad name=s_create_ad style=" FONT-FAMILY: serif; * 
FONT-SIZE: xx-small; HEIGHT : 2Gpx; LEFT: Mp X ; TOP: b2px; VERTICAL-ALIGN : top; WIDTH: * 
ifapx" type=submit value="Create AD" 

onclick = " jvs_selection__made( 'Create Ad')" > 

</FONTX/FONT></TDX/TR> 

<TR> 
<TD> 

<P align=lef txSTRONGXFONT f ace=Verdana size=l> 

<INPUT align=middle id=s_search_ad name=s„search_ad style="FQNT-FAf1ILY : serif; 

FONT-SIZE: xx-small; HEIGHT : 2Qpx; LEFT : Hpx; TOP = L2px; VERTICAL-ALIGN: top; 

iillDTH: ^bpx" type=submit value="Search AD" 
onclick = " jvs_selection_made ( 'Search Ad')" > 
</FONT></STRONGX/PX/TDX/TR> 

<TR> 
<TD> 

<P align=lef txFONT color=yellow f ace=Verdana 
s ize=l> 

<INPUT align=raiddle id=s_create_account name=s_create_account sty le= n FONT-FAMILY : serif; 
FONT-SIZE : xx-small; HEIGHT: 20px; LEFT: Mp X ; TOP: L2px; VERTICAL-ALIGN: top; WIDTH: 
Tbpx" type=submit value="View/ Maint 
Account" onclick =" jvs_selection_made ( ' View Account' )"></FONT></P> 
</TD></TRX/TBODYX/TABLEX/DIV> 

<INPUT id=option__chosen type=hidden name=option_chosen> 

</F0Rf1> 

</B0DY> 

</HTML> 



-101- 



C:\unzipped\EZC\Project\Pro ject_Local\menu_ad_se 1 ect ion « asp 
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<>C3 l_anguage=VBScript '/.> 

Option Explicit 
Response - Expires = 0 
r 0n Error resume next 



Dim ob jOracleConni strConnectString n ObjRs 
Dim strS(2Li2uery 

1 6b connection 

Set ob jOracleConn = Server . CreateOb ject ("ADODB - Connection" ) 
strConnectString = "DSN=EZC Oracle iUID=ezc ! .pwd=sql" 
objOracleConn-Open strConnectString 



'retrieve the 
strS(2Lfiuery = 
strSdLfiuery = 
' strSdLfluery = 
strS(3l_(2uery = 
strS(2L(2uery = 
strS<2L<2uery = 
strS<3L(2uery = 
strS(2L<2uery = 
strS<3L*3uery = 



main menu from the ad table 

n SELECT EZC.CT_EZC_ADV_TYPE.ADV_TYPE_INT_KEY-, 
strS<2L(2uery + " EZC . CT„EZC_ADV_TYPE - ADV_C0DE, 

strS(2L<2uery + " EZC . CT_EZC„ADV_TYPE - ADV_TYPE_DESC DESCRIPTION -i " 
strS(3L(2uery + " EZC - CT_EZC_ADV_TYPE - ADV__IHAGE_NAf1E i 
strSflLGuery + " EZC . CT_EZC_ADV_TYPE . ACTIVE-. " 
strS(2L(2uery + " EZC . CT„EZC„ADV„TYPE - AD.JJRL-. " 
strS<2L(2uery + " EZC . CT_EZC_ADV„TYPE . AD„URL_SEARCH n 
strSflLfiuery + " FROfl EZC - CT_EZC_AD V_TYPE " 

strS(3L<3uery + " WHERE EZC - CT_EZC_ADV_TYPE . ACTIVE = 'Y' order by sort_order 



' Response. Write (strS(2L(2uery) 
' now execute the query 

Set ObjRs = objOracleConn . Execute ( strSflLfiuery ) 

if ob jOracleConn-Errors . Count > 0 then 

Response -Write ( "Error in executing for customer contact types") 

For intloop = 0 to ob jOracleConn-Errors . Count - 1 

Response-Write ( "Err #: " a objOracleConn - Errors < intloop) . Number ) 
Response -Write ( "Err Msg: " a ob jOracleConn - Errors ( intloop) . Description ) 

Next 
end if 

' build the menu 

Dim StrTableSyntaxli StrTableSyntax2n StrTableSyntax i Strlmage-, StrlmageStringi StrDesc 

Dim IntCount 

IntCount = 0 

While Not ObjRs - EOF 

r Response -write (ObjRs ("AD V_IflAGE_NAME") ) 
Strlmage = Ob jRs <"ADV_It1AGE_NAME") 
'StrDesc = Ob jRs ("DESCRIPTION") 
if Isnull(Strlmage) then Strlmage = "" 

'StrlmageString = StrlmageStr ing a Strlmage 

IntCount = IntCount + 1 

' first time create the main table- 
if IntCount = 1 then 

StrTableSyntax = "<TABLE border=0 cellPadding=l cellSpacing=l >" 
end if 

f if odd # ( 1i3t5) then begin a new row 

if round(IntCount/Eil) - round(IntCount/E-.G)=Q-5 then 

StrTableSyntax = StrTableSyntax a "<TR>" 
end if 

'begin column 

StrTableSyntax = StrTableSyntax a "<TD>" 



StrTableSyntaxE = "<TABLE bordered cellPadding=M cellSpacing=l >" 
StrTableSyntaxE = StrTableSyntax^ a "<TR><TD>" & Ob jRs <"ADV_C0DE") & "</TDx/TR>" 
StrTableSyntax^ = StrTableSyntax^ & "<TR><TD>" a StrDesc a "</TD></TRx/TABLE>" 
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StrTableSyntaxl = "<TABLE border=0 eel lPadding=M eel lSpacing=H >" 
StrTableSyntaxl = StrTableSyntaxl & "<TRXTD> n a "<A HREF= nn " 

'see is this is a search or a create 

if Session( n Chosen__0ption") = "Create Ad n then 

StrTableSyntaxl = StrTableSyntaxl & Ob jRs ("ADJJRL") & """> <IMG src=" nn a Strlmage * 
a " n "></AX/TI»<TD>" 

StrTableSyntaxl = StrTableSyntaxl & Ob jRs ("ADJJRL") a """> <If1G src= nn images/clipart 
/car -gif nn x/AX/T]»<T]»" 
else 

StrTableSyntaxl = StrTableSyntaxl & Ob jRs< n AD_URL_SEARCH n ) & """> <IHG src= nn " & 
Ob jRs ("ADV_If1AGE — NAf1E") & """></A></TD><TD>" 

end if 



StrTableSyntaxl = StrTableSyntaxl & StrTableSyntaxl a "</TD></TRX/TABLE>" 
StrTableSyntax = StrTableSyntax a StrTableSyntaxl a "</TD>" 
' if even rowi then end row 

if rounddntCount/Eil) - round(IntCount/2iQ) =0 then 

StrTableSyntax = StrTableSyntax & "</TR>" 
end if 

Ob jRs - NoveNext 

UEnd 

' at the very endi end the table 
StrTableSyntax = StrTableSyntax a "</TABLE>" 

Response - Uri te (StrlmageString ) 



<HTI1L> 
<HEAD> 

<META NAf1E="GENERAT0R" Content= n f1icrosof t Visual Studio t-0 n > 

</HEAI» 

<B0DY> 

<F0Rf1> 

<P> 

<P> 

<'A ^StrTableSyntax X> 
<BR> 



</F0RM> 



<P>anbsp*i</P> 
<P>anbspi</P> 
<P>anbsp;</P> 

</B0DY> 
</HTf1L> 
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</. aLANGUAGE=VBSCRIPT X> 
<'/. 

Response-Expires = 0 

On Error resume next 

Dim StrUserlDi StrPassword 

Dim Strflessage 

Strflessage = nn 

' see if this the first time connecting- Session 
' variable should not be there- 

Session("Account_ID") = "INVALID" 

If Request • Server Variables ("CONTENT ^LENGTH") <> 0 Then 
' second time around 

if Session("Account_ID") = "INVALID" then 
'the usr has not logged in yet 

f data has already been input 

r check to see if the account exists 

1 and it is valid- 



'the user has not logged in yet- Give them the 
' opportunity - 

StrUserlD = Request-Form ("UserlD") 
StrPassword = Request-Form ("UserPassword" ) 

' connect to the database and check the account 
Dim ob jOracleConn-i strConnectStringn ObjRs 
Dim strS<2L(2uery 

Set ob jOracleConn = Server - CreateObject ("ADODB - Connection" ) 
strConnectString = "DSN=EZC Oracle"iUID=ezc"ipwd=sql" 
ob jOracleConn -Open strConnectString 

' Response-Write ("error count: " & ob jOracleConn . Errors (0) ■ Description &"<P>") 
'now see if the userid and password exist 

strS<2L<2uery = "Select CUST_ID-. CUST_PWD-, INDIVIDUAL_OR_AGENT from * 

dt_ezc_customer_inf o where cust_id = r " 
strS(2L<3uery = strSSLfluery & trim (StrUserlD) & "' and cust_pwd = '" a trim 

(StrPassword) & " T " 
'Response -Write (strS(2L(2uery+ n <P>") 



' now execute the query 

Set ObjRs = ob jOracleConn- Execute (strS(3L<2uery ) 
if ob jOracleConn -Errors - Count > 0 then 
Response. Urite ( "Error in executing") 
For intloop = 0 to ob jOracleConn - Errors - Count - 1 

Response . Write ( "Err #: " & ob jOracleConn - Errors ( intloop) . Number ) 
Response . Write ( "Err Hsg: " & ob jOracleConn - Errors < intloop) .Description ) 

Next 
end if 

f if the recordset retreived something then the logon id 
' is correct - 

if not ObjRs • EOF then 

' the user id is correcti connect the user to the particular window he was going *f 
to 

Session("Account_ID") = Ob jRs ( "CUST_ID") 
Session("INDIVIDUAL") = Ob jRs ("INDIVIDUAL_OR_AGENT") 
'go to the correct page 

if Session("Chosen_Option") = "Create Ad" then 
' Response -Write (Session ("Chosen_0pt ion") ) 
Response - Clear 

Response - Redirect ("menu„ad_se lection- asp") 
elseif Session("Chosen_Option") = "Search Ad" then 
Response - Clear 

Response - Redirect ("Ha in/ Ads/search_vehicle/vehicle_search -asp") 
end if 
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else 

Session("Account_ID") = "INVALID" 
Strflessage = "User ID and Password not found" 

1 the user id password comination not foundi popup a window 
end if 

Else 

if Session("Account_ID") <> "INVALID" and Session ("Account_ID") <> "" then 
' we're OK - continue with the right script 

if Session ("Chosen_Option" ) = "View Account" then 
Response -Clear 

Response - Redirect <"F1ain/Account/create_account - asp") 

else 

Response -Clear 

Response . Redirect ("menu_ad.se lection .asp") 
end if 
end if 
End If 
end if 
'/.> 

<html> 

<body> 

<head> 

</head> 

<p> 

<form action="<^=Request-ServerVariables("script_name")^>" id="F0Rf11" method="post" name ^ 
="F0RM1"> 

<P> 

<p>&nbsp"i</p> 
<p> 

<table bordered" cellPadding="0" eel lSpacing="0" width="75* n style="HEIGHT : lfl^px^ WIDTH: 
3fl3px"> 

<y. 

if StrMessage <> "" then 

Response. Write ("<trxtdxpxf ont color=""red"">" & StrHessage & "</f ont></p></tdxtd></td 
></tr>") 
end if 
Z> 

<tr> 
<td> 

<pxfont color="green">Please Enter Your User ID and Password</f ontx/pX/td> 
<tdx/td></tr> 
<tr> 
<td> 

<table border="D" cellPadding= n O" cellSpacing="D n id="TABLEl" style="HEIGHT: Slpx^ 
WIDTH: 23bpx" width="75*"> 

<tr> 
<td> 

<p align="right"xf ont face="Arial" size= n 2 n >User ID:</font> </p></td> 
<td><font face="Arial" size="2"xinput id="textl" maxLength="MO" name="UserID" * 

value="<*=StrUserID*>"x/f ontx/td> 
</tr> 
<tr> 
<td> 

<p align="right"xf ont face="Arial" size="2">Password : </f ontx/pX/td> 
<td><font face="Arial" size= n 2"Xinput id="passwordl" name="UserPassword" type 
= "password" value = "<* = StrPassword*>"x/f ontx/td> 
</trx/table></td> 

<td><a href = n nain/Account/create_account.asp"ximg id="iriGl" src="images/f irsttime - gif " 
li!IDTH = "75" HEIGHT="i40"x/a>&nbsp:i 
</td></tr> 

<tr> 
<td> 

<p><a href="http://instructor2/E2Codes_mod/Account/create - account-asp">Click Here if * 
you forgot your UserlD/Password and would like us to e-mail you</a></td> 
</tr> 
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<tr> 
<td> 

<p><input id="submitl" name = FT submi tl n type="submit" value= n Logon"></p></td> 
</tr></table></p> 
<p>&nbspi</p> 

<7. Response -Write ("<input id=option_chosen name=option_chosen type=hidden value= nn " & kT 
Request . Form ("option_chosen" ) & ) 
' set its int-ial value ot invalid 
Session("Account_ID n ) = "INVALID" 

'K> 

</f orm> 

</body> 
</html> 
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<*S Language=VBScript '/.> 

<HTML> 

<HEAD> 

<nET A NAME="GENERATOR" Content="nicrosof t Visual Studio b-0"> 
<script ID="clientEventHandlersJSl n LANGUAGE="javascript"> 
<!-- 

function jvs_selaction_made (as_selected_value) 
■C 

/* set the hidden field to the value 
*/ 

forml - option_chosen * value = as_selected_value 

y 

//--> 

</script> 
</HEAD> 

<B0DY bgColor=darkblue> 
<DIV align=center> 

<form name=forml action="logon - asp" target="display" method = "P0ST"> 

<TABLE border=0 cellPadding=M eel lSpacing=M width="?5*" style= n HEIGHT : EbOpx; WIDTH: lESpx" W 
align=lef t> 
<TB0DY style="C0L0R: yellow"> 

<TR> 
<TD> 

<P align=lef txSTRONGxFONT face=Verdana size=l style="C0L0R : yellow" 
>Telephone Number</FONTx/STRONGx/PX/TDX/TR> 
<TR> 
<T3» 

<DIV align=left> 

<TABLE border=0 cellPadding=0 cellSpacing=D width="3iOD*" borderColor=si lver align* 
center style="VERTICAL-ALIGN : top"> 

<TR> 

<TDXSTRONGXFONT face=Verdana size=l><INPUT id=textl maxLength=3 name=textl 

style="HEIGHT: EEpx^ WIDTH: 2^px"X/F0NTX/STR0NGX/TD> 
<TDXSTRONGxFONT face=Verdana 

size=l>-</FONTX/STRONGX/TD> 
<TD><STR0NGXF0NT face=Verdana size=lxlNPUT id=textE maxLength=3 name=textE 

style="HEIGHT: EEpxi WIDTH: SHpx"x/FONTx/STRONG></TD> 
<TDXSTRONGxFONT face = Verdana 

size=l>-</FONTX/STRONGX/TD> 
<TDXSTR0NGXF0NT face=Verdana size=l><INPUT id=text3 maxLength=5 name=text3 
style = "HEIGHT: EEpx^ WIDTH: sapx"X/F0NTX/STR0NGX/TDX/TRX/TA8LEx/DIV> 
<P align=lef txlNPUT align^middle id=submitl name=submitl style="F0 NT-FAMILY : serifs 

FONT-SIZE: xx-smalli HEIGHT: EOpx i LEFT : Mpx^ TOP : tSpxi VERTICAL- ALIGN : top* WIDTH : * 
^tpx" type=submit value="View AD n x/P></TD></TR> 

<TR> 
<TD> 

<P align=lef txFONT color=yellow><FONT face=Verdana size=l> 

<A href ="menu_ad_selection - asp" target=display 

onclick = "jvs_selection_niade( 'Create Ad')" ><STRONG>Create 

Ad</STR0NG> 

</AX/FONTX/FONTX/PX/TD></TR> 

<TR> 
<TD> 

<P align=lef txSTRONGXFONT face=Verdana size=l><A 
href="t1ain/Ads/search_vehicle/vehicle_search.asp" target=display 
onclick = "jvs_selection_made< 'Search' )" XFONT color=#f f f f OD>Search 
Ads</FONT></A> 

</FONT></STRONGX/PX/TDX/TR> 

<TR> 
<TD> 

<P align=lef txFONT color=yellow face=Verdana 
size=l><A 

href ="Ma in/ Account /cr eat e_account- asp" target=disp lay 

onclick = "jvs_selection_made< 'Create Account')" ><STRONG><U>View 

Account</U></STRONGX/FONTx/PX/AX/TDX/TRX/TBODYX/TABLE></DIV> 

<INPUT id=option_chosen type=hidden name=opt ion_chosen> 

</FORf1> 
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Language=VBScript X> 

<'/. 

Option Explicit 
Response - Expires = 0 
On Error resume next 

Dim ob jOracleConni strConnectString i ObjRs 
Din strS(2L(2uery 

Set objOracleConn. = Server - Create Ob ject("ADODB - Connection" ) 
strConnectString = "DSN=EZC OraclenUID=ezc*Tpwd=sql" 
objOracleConn- Open strConnectString 

' Response -Write ("error count: " & objOracleConn-Errors(O) -Description &"<P>") 
Dim StrVehicleMake 

' StrVehicleMake = Request - Form("ls_vehicle_make") 
Response -Write ("abc = " & StrVehicleMake) 

'now see if the userid and password exist 

strS(3L(3uery = " SELECT CT_EZC_VEHICLE_MODEL - VEHICLE_MODEL_INT_KEY -. *r 
CT_EZC_VEHICLE„MODEL • VEHICLE_J1AKE_INT„KEYi CT_EZC_VEHICLE_MODEL - VEHICLE_MODEL * 

CT_EZC_VEHICLE_I10DEL. ACTIVE FROM CT_EZC_VEHICLEJ10DEL WHERE ( ^ 

CT_EZC_VEHICLE_MODEL- ACTIVE = ' Y ' ) and (CT_EZC„VEHICLE_MODEL - VEHICLE_MAKE_INT_KEY = '" & 
StrVehicleMake & "' ORDER BY CT_EZC_VEHICLE_f10DEL ■ VEHICLE_J10DEL ASC " 

'Response - Write (strS(2L<2uery+"<P> n ) 

r now execute the query 

Set ObjRs = objOracleConn -Execute ( strS(2L$3uery ) 
if objOracleConn ■ Errors - Count > □ then 

Response • Write ( "Error in executing") 

For intloop = 0 to objOracleConn -Errors - Count - 1 

Response - Write ( "Err #: " & objOracleConn - Errors - Item - Number ) 
Response -Write ( "Err flsg: " & objOracleConn - Errors - Item- Description ) 

Next 
end if 

' build the data for the vehicle makes 
Dim StrSelectHTML 
IntContactListCount = 0 
While Not ObjRs - EOF 

StrSelectHTML = StrSelectHTML a "<0PTI0N value=" & ObjRs * 
("VEHICLE_MODEL„INT_KEY") & ">" & Ob jRs ("VEHICLE J10DEL") & "</OPTI0N>" 

Ob jRs -MoveNext 

Wend 

Ob jRs - close 

Set ObjRs = Nothing 



<HTML> 
<HEAD> 
<B0DY> 

<F0RM name = Vehicle„model_form f1ETH0D=post action=<"/;=Request - ServerVariables ("script_name") */.» 
<P> 

<TABLE align^center border=0 eel lPadding=l eel lSpacing=l width="lDD5£ n > 

<TR> 
<TD> 

<P align=right><FONT face=Arial size=2>Vehicle Model : </FONTx/Px/TD> 
<TD><SELECT id=selectl name-ls_vehicle_model size=l 

sty le="HEIGHT : 2Epx^ WIDTH: n3px"> 

<Z =StrSelectHTML X> 

</SELECT> 
</TD></TR></TABLE>&nbspn&nbspi 
<input type="hidden" name="ls_vehicle_make"> 
</P> 
</F0RM> 
</B0DY> 
</HTML> 
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<htral> 
<head> 

<title>ti!elcome Page</title> 

<meta name= n GENERATOR n content="f1icrosof t FrontPage 1.1"> 
</head> 

<body bgcolor= n #fluFFFF n > 
<table width=10D*> 

<tr><th align = left width=lDQ^><p align=center>Welcome to EZcodes . com</p> 
</th></tr> 

<tr><td width=lDQ^>To view an adi simply enter the classified ads telephone number or listings 

number in the appropriate 
box to the lef t</tdx/tr> 

<tr><td width=10D^>To create a FREE ad to sell your housei car or any other item-i 

<A HREF="http : //ins tructorE/EZCodes3/logon -asp">Press Here! </a> (Note-, your telephone / 

number and a listing number will automatically be assigned to 
your ad) -</tdx/tr> 

<tr><td width=10D>:>To assign a telephone number and listing number to an existing web site or/ 

online inventory item(s)t 
<a href ="Main/CreateAd/index . htm">PRESS HERE ! </a>(This FREE service is utilized mostly by / 

automobile dealers and real estate agents 
who have online inventories )- </td></tr> 
<trxtd width=iaO*x/tdx/tr> 

<tr><td width=100^>blelcome to EZcodes-com! If you are serious about selling your hornet car or/ 
just about anything 

elsei you've come to the right place- We offer world wide sales exposure for FREE - </tdx/tr> 
<tr><td width=100"/C>0ur goal is simple: To Connect Print Media to the Internet- EZcodes-com is/ 
a FREE SERVICE that 

offers buyers and sellers the opportunity to connect a newspaper based classified ad to the / 
Internet . 

To learn more about our servicesn PRESS HERE - </td></tr> 

<trxth align=left width=lQD*xp align=center>Example Newspaper Ad</p> 

</thx/tr> 

<trxtd width=lQO^>Below is an example of how you can use our Internet address in a newspaper/ 

ad allowing additional 
information and photos to be seen-<br> 
</td></tr> 

<tr><td width=lDQ^xtable eel lpadding=Q eel lspacing=Q width=10D*> 

<tr><td width=33*x/tdxtd width=SD*>For sale: 14 bed 3 bath built M. pool/spa large 

lot- Must sell!<p>www.ezcodes-com </p> 

<p>555- 555-5555</p> 

</tdxtd width=3i4'/:x/tdx/tr> 

</table> 

</tdx/tr> 

</table> 

</body> 

</html> 
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Language=VBScript X> 
<html> 
<head> 

<n»Gta NAME= "GENERA TOR" Content="f1icrosof t Visual Studio t-0"> 

</head> 

<body> 

<form ACTION="vehicle_ad_imageresponse.asp" ENCTYPE="multipart/f orm-data" riETHOD= n post"> 
<table li)IDTH= n 3iDO*" style="HEI6HT : 53pxi WIDTH : 321px" border="D n cellPadding="Q" cellspacing^ 
="0"> 

<tr> 

<td ALIGN="right"> 

<p align="center"><img src-" ../../.. /images/clipart/housegif - gif" style="HEIGHT : VMpxn S 
WIDTH: i7Hpx" lilIDTH="Ltfi n HEIGHT="3fl n >&nbsp \ </p> 
</td> 

</tr> 
</table> 
</f orm> 

</body> 
</html> 
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<X3 Language=VBScript X> 

<html> 

<head> 

<meta NAME= n GENERATOR n Content= n riicrosof t Visual Studio fc-Q n > 

</head> 

<body> 

<F0RM ACTION = rT rGalGstate„ad„imageresponse.asp" ENCTYPE= n multipart/f orm-data" METHOD =n post TT > 
<TABLE li)IDTH = "lQD^" style="HEIGHT : S3px; WIDTH : 3Elpx" border=0 ce 1 lPadding=0 ce 1 lSpacing=G> 
<TR> 

<TD ALIGN^right" V ALIGN="top"><FONT face=Verdana 
size=l>Upload Image : </F0NT> </TD> 

<X 

' Note the use of the TYPE="FILE n specification 

X> 

<TD ALIGN=° lef t n ><INPUT TYPE="file n NANE= n FILEl" 
style="FONT-FAniLY: serif; FONT-SIZE: x-small n > 

</TD> 
</TR> 
<TR> 

<TD ALIGN= n right"> </TD> 
<TD ALIGN = TT lef t"> 

<P align=lef txlNPUT TYPE= n submit" NAHE= n SUBl n VALUE="Upload Image" styl e= n FONT-FA NIL Y / 
: serifs FONT-SIZE : x-small; HEIGHT: E3px; WIDTH: 13Mpx"x/P></TD> 

</TR> 

</TABLE> 

</F0Rf1> 

</body> 
</HTf1L> 
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<*a Language=VBScript X> 

<html> 

<head> 

<meta NAME="GENERATOR" Content="f1icrosof t Visual Studio t-0"> 

</head> 

<body> 

LA NGUAGE=" VBSCRIPT" *> 



' Instanciate SA-FileUp 

Set upl = Server. CreateOb ject ("Sof tArtisans - FileUp") 

' Set the default path to store uploaded files- 

upl- Path = "c:\temp" 
X> 

<% if upl-IsEmpty Then %> 

The file that you uploaded was empty. Host likelyi you did not specify a valid 

filename to your browser or you left the filename field blank- Please try again- 
<X Elself upl-ContentDisposition <> "form-data" Then X> 

Your upload did not succeedi most likely because your browser 

does not support Upload via this mechanism- 
<*Else X> 

<P>The file was successfully uploaded - </P> 

<y. 

on error resume next 



Save the file now- If you want to preserve the original user's filename*, use 
upl -Save 



r ^ you uant set y 0Ur oun namei uncomment one of the below lines 

' upl-SaveAs "upload-tst" ' this uses -Path property 

' upl-SaveAs "d:\someotherdir\myfile-ext" 

upl-SaveAs "\\bowser\calendar\myf ile . ext" ' — NOTE : The anonymous user *must* have* 
network 

mje r. f access rights for UNC names to work 

if Err <> 0 Then '4> 

<H1><F0NT C0L0R="#ff0000">An error occurred when saving the file on the server-</tf 

F0NTX/H1> 
Possible causes include: 
<UL> 

<LI>An incorrect filename was specified 

<LI>File permissions do not allow writing to the specified area 
</UL> 

Please check the SA-FileUp documentation for more troubleshooting information! 
or send e-mail to <A HREF="mailto : inf oSsof tartisans - com">inf oSsof tartisans - com</A 

<X 'Else 

' Response. Write ("Upload saved successfully to " a upl . ServerName) 
End If X> 

<>. End If '/.> 

</B0DY> 

</HTf1L> 
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